home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1996 May: Tool Chest / Developer CD Series May 1996 (Tool Chest) (Apple Computer) (1996).iso / Tool Chest / Development Tools & Languages / Macintosh Common Lisp Related / interfaces / AOCE folder / OCEAuthDir.lisp < prev    next >
Encoding:
Text File  |  1994-09-12  |  173.6 KB  |  4,588 lines  |  [TEXT/CCL2]
  1.  
  2. (in-package :TRAPS)             ; ***********************************************************
  3. ; 
  4. ; Created: Monday, November 8, 1993 11:46 AM
  5. ;  OCEAuthDir.p
  6. ;  Pascal Interface to the Macintosh Libraries
  7. ; 
  8. ;   Copyright Apple Computer, Inc. 1990-1993
  9. ;   All rights reserved
  10. ; 
  11. ; ***********************************************************
  12.  
  13. ; $IFC UNDEFINED UsingIncludes
  14. ; $SETC UsingIncludes:= 0
  15. ; $ENDC
  16.  
  17. ; $IFC NOT UsingIncludes
  18.  
  19. ; $ENDC
  20.  
  21. ; $IFC UNDEFINED UsingOCEAuthDir
  22. ; $SETC UsingOCEAuthDir:= 1
  23.  
  24. ; $I+
  25. ; $SETC OCEAuthDirIncludes:= UsingIncludes
  26. ; $SETC UsingIncludes:= 1
  27.  
  28. ; $IFC UNDEFINED UsingAppleTalk
  29.  
  30. (require-interface 'APPLETALK)  ; $I $$Shell(PInterfaces)AppleTalk.p
  31. ; $ENDC
  32.  
  33. ; $IFC UNDEFINED UsingFiles
  34.  
  35. (require-interface 'FILES)      ; $I $$Shell(PInterfaces)Files.p
  36. ; $ENDC
  37.  
  38. ; $IFC UNDEFINED UsingOCE
  39. ; $I OCE.p
  40. ; $ENDC
  41.  
  42. ; $IFC UNDEFINED UsingOSUtils
  43.  
  44. (require-interface 'OSUTILS)    ; $I $$Shell(PInterfaces)OSUtils.p
  45. ; $ENDC
  46.  
  47. ; $IFC UNDEFINED UsingTypes
  48.  
  49. (require-interface 'TYPES)      ; $I $$Shell(PInterfaces)Types.p
  50. ; $ENDC
  51.  
  52. ; $SETC UsingIncludes:= OCEAuthDirIncludes
  53.  
  54. ; ***************************************************************************
  55.  
  56. (defconstant $kRC4KeySizeInBytes 8);  size of an RC4 key 
  57. (defconstant $kRefNumUnknown 0)
  58.  
  59. (defconstant $kEnumDistinguishedNameBit 0)
  60. (defconstant $kEnumAliasBit 1)
  61. (defconstant $kEnumPseudonymBit 2)
  62. (defconstant $kEnumDNodeBit 3)
  63. (defconstant $kEnumInvisibleBit 4)
  64. ;  Values of DirEnumChoices 
  65. (defconstant $kEnumDistinguishedNameMask #X1); 1<<kEnumDistinguishedNameBit
  66. (defconstant $kEnumAliasMask #X2); 1<<kEnumAliasBit
  67. (defconstant $kEnumPseudonymMask #X4); 1<<kEnumPseudonymBit
  68. (defconstant $kEnumDNodeMask #X8); 1<<kEnumDNodeBit
  69. (defconstant $kEnumInvisibleMask #X10); 1<<kEnumInvisibleBit
  70.  
  71. (defconstant $kEnumAllMask (+ #$KENUMDISTINGUISHEDNAMEMASK (+ #$KENUMALIASMASK (+ #$KENUMPSEUDONYMMASK (+ #$KENUMDNODEMASK #$KENUMINVISIBLEMASK)))))
  72.  
  73. (def-mactype :DIRENUMCHOICES (find-mactype :SIGNED-LONG))
  74.  
  75. ;  Values of DirSortOption 
  76. (defconstant $kSortByName 0)
  77. (defconstant $kSortByType 1)
  78.  
  79. ;  Values of DirSortDirection 
  80. (defconstant $kSortForwards 0)
  81. (defconstant $kSortBackwards 1)
  82.  
  83. ;  Values of DirMatchWith 
  84. (defconstant $kMatchAll 0)
  85. (defconstant $kExactMatch 1)
  86. (defconstant $kBeginsWith 2)
  87. (defconstant $kEndingWith 3)
  88. (defconstant $kContaining 4)
  89.  
  90. (def-mactype :DIRMATCHWITH (find-mactype :UNSIGNED-BYTE))
  91.  
  92. (defconstant $kCurrentOCESortVersion 1)
  93.  
  94. ;   Access controls are implemented on three levels:
  95. ;           DNode, Record, and Attribute Type levels
  96. ;     Some access control bits apply to the container itself, and some apply to its contents.
  97. ; 
  98. ;     The Directory Toolbox supports six functions.  These calls are:
  99. ;     DSSetDNodeAccessControl : to set Access Controls at the DNode level
  100. ;     DSGetDNodeAccessControl : to get Access Controls at the DNode level
  101. ;     DSSetRecordAccessControl  : to set Access Controls at the record level
  102. ;     DSGetRecordAccessControl  : to get Access Controls at the record level
  103. ;     DSSetAttributeAccessControl : to set Access Privileges at the attribute type level
  104. ;     DSGetAttributeAccessControl : to get Access Privileges at the attribute type level
  105. ; 
  106. ;     The GetXXXAccessControl calls will return access control masks for various categories
  107. ;     of users.  Please refer to the access control document for a description of the
  108. ;     categories of users.  In general these are:
  109. ;         ThisRecordOwner         - means the identity of the record itself
  110. ;         Friends                  - means any one of the assigned friends for the record
  111. ;         AuthenticatedInDNode     - means any valid user that is an authenticated entity
  112. ;             in the DNode in which this record is located
  113. ;         AuthenticatedInDirectory - means any valid authenticated directory user
  114. ;         Guest                      - means an unauthenticated user.
  115. ;     Depending on the access control for the user (identity of the user),
  116. ;     a SetXXXAccessControl operation can be performed to set controls for various
  117. ;     categories of users described above.   Bit masks for various permitted access
  118. ;     controls are defined below.
  119. ; 
  120. ;     GetXXXAccessControl calls will return access control masks for various categories of
  121. ;     users for this record. In addition they also return the level of access controls
  122. ;     that the user (who is making the GetXXXAccessControl call) has for the DNode,
  123. ;     record, or attribute type.
  124. ; 
  125. ;     For records, the access control granted will be minimum of the DNode access
  126. ;     control and record access control masks.  For example, to add an attribute type to a
  127. ;     record, a user must have access control kCreateAttributeTypes at the record and
  128. ;     DNode levels.  Similarly, at the attribute type level, access controls will be the
  129. ;     minimum of the DNode, record, and attribute type access controls.
  130. ;  
  131.  
  132. ;  access categories bit numbers 
  133. (defconstant $kThisRecordOwnerBit 0)
  134. (defconstant $kFriendsBit 1)
  135. (defconstant $kAuthenticatedInDNodeBit 2)
  136. (defconstant $kAuthenticatedInDirectoryBit 3)
  137. (defconstant $kGuestBit 4)
  138. (defconstant $kMeBit 5)
  139.  
  140. ;  Values of CategoryMask 
  141. (defconstant $kThisRecordOwnerMask #X1); 1<<kThisRecordOwnerBit
  142. (defconstant $kFriendsMask #X2) ; 1<<kFriendsBit
  143. (defconstant $kAuthenticatedInDNodeMask #X4); 1<<kAuthenticatedInDNodeBit
  144. (defconstant $kAuthenticatedInDirectoryMask #X8); 1<<kAuthenticatedInDirectoryBit
  145. (defconstant $kGuestMask #X10)  ; 1<<kGuestBit
  146. (defconstant $kMeMask #X20)     ; 1<<kMeBit
  147.  
  148. ;  access privileges bit numbers 
  149. (defconstant $kSeeBit 0)
  150. (defconstant $kAddBit 1)
  151. (defconstant $kDeleteBit 2)
  152. (defconstant $kChangeBit 3)
  153. (defconstant $kRenameBit 4)
  154. (defconstant $kChangePrivsBit 5)
  155. (defconstant $kSeeFoldersBit 6)
  156.  
  157. ;  Values of AccessMask 
  158. (defconstant $kSeeMask #X1)     ; 1<<kSeeBit
  159. (defconstant $kAddMask #X2)     ; 1<<kAddBit
  160. (defconstant $kDeleteMask #X4)  ; 1<<kDeleteBit
  161. (defconstant $kChangeMask #X8)  ; 1<<kChangeBit
  162. (defconstant $kRenameMask #X10) ; 1<<kRenameBit
  163. (defconstant $kChangePrivsMask #X20); 1<<kChangePrivsBit
  164. (defconstant $kSeeFoldersMask #X40); 1<<kSeeFoldersBit
  165.  
  166. (defconstant $kAllPrivs (+ #$KSEEMASK (+ #$KADDMASK (+ #$KDELETEMASK (+ #$KCHANGEMASK (+ #$KRENAMEMASK (+ #$KCHANGEPRIVSMASK #$KSEEFOLDERSMASK)))))))
  167. (defconstant $kNoPrivs 0)
  168.  
  169. ; 
  170. ; 
  171. ; kSupportsDNodeNumberBit:
  172. ; If this bit is set, a DNode can be referenced using DNodeNumbers.
  173. ; RecordLocationInfo can be specified using DNodeNumber and PathName component can be nil.
  174. ; If this bit is not set, a DNode can be referenced only by PathName to the DNode. In the
  175. ; later case DNodeNumber component inside record location info must be set to zero.
  176. ; 
  177. ; kSupportsRecordCreationIDBit:
  178. ; If this bit is set, a record can be referenced by specifying CreationID
  179. ; in most directory manager calls. If this bit is not set recordName and recordType are
  180. ; required in the recordID specification for all directory manager calls.
  181. ; 
  182. ; kSupportsAttributeCreationIDBit:
  183. ; If this bit is set, an attribute value can be obtained by specifying it's
  184. ; CreationID in Lookup call staring point and also can be used in operations
  185. ; like DeleteAttributeValue and ChangeAttributeValue an Attribute can be
  186. ; specified by AttributeType and CreationID.
  187. ; 
  188. ; 
  189. ; Following three bits are for determining the sort order in enumeration.
  190. ; kSupportsWildCardOnlyinEnumerationBit:
  191. ; If this bit is set, directory supports only wild card
  192. ; (i.e. recordName as "=").
  193. ; 
  194. ; kSupportsTrailingWildCardOnlyinEnumerationBit:
  195. ; This option is similar to "WildCardOnly",(i.e. recordName as "a=").
  196. ; If this is set, directory supports find capability (e.g. starts with option)
  197. ; 
  198. ; kSupportsExactMatchBit:
  199. ; If this bit is set, existence of a record matching exact recordName and recordType
  200. ; specification can be found.
  201. ; 
  202. ; The above three bits can be interpreted as:
  203. ; WildCardOnlyinEnumerationBit  TrailingWildCardinEnumeration  ExactMatch   Result
  204. ;  1                             0                              0           Browse Only
  205. ;  0                             1                              0           Find Only
  206. ;  0                             0                              1              Exact Match Only
  207. ;  1                             1                                 0           Browse/Find
  208. ;  0                               1                              1           Find/ExcatMatch
  209. ;  1                             1                              1           Browse/Find/ExactMatch
  210. ; 
  211. ; Implicit assumption in all these is, record type can be specified either as wild card or
  212. ; a type list.
  213. ; 
  214. ; The Following four bits will indicate sort ordering in enumeration.
  215. ; kSupportsOrderedEnumerationBit:
  216. ; If this bit is set, Enumerated records or in some order possibly in name order.
  217. ; kCanSupportNameOrderBit:
  218. ; If this is set, directory will support sortbyName option in Enumerate.
  219. ; kCanSupportTypeOrderBit:
  220. ; If this bit is set, directory will support sortbyType option in enumearte.
  221. ; kSupportSortBackwardsBit:
  222. ; If this bit is set, directory supports backward sorting.
  223. ; 
  224. ; kSupportsEnumerationContinueBit:
  225. ; If this bit is set, directory supports enumeration continue.
  226. ; 
  227. ; kSupportsLookupContinueBit:
  228. ; If this bit is set, directory supports lookup continue.
  229. ; 
  230. ; kSupportsEnumerateAttributeTypeContinueBit:
  231. ; If this bit is set, directory supports EnumerateAttributeType continue.
  232. ; 
  233. ; kSupportsEnumeratePseudonymContinueBit:
  234. ; If this bit is set, directory supports EnumeratePseudonym continue.
  235. ; 
  236. ; kSupportsAliasesBit:
  237. ; If this bit is set, directory supports create/delte/enumerate
  238. ; of Alias Records.
  239. ; 
  240. ; kSupportPseudonymBit:
  241. ; If this bit is set, directory supports create/delte/enumerate of
  242. ; pseudonyms for a record.
  243. ; 
  244. ; kSupportsPartialPathNameBit:
  245. ; If this bit is set, directory nodes can be specified using DNodeNumber of a
  246. ; intermediate DNode and a partial name starting from that DNode to the intended
  247. ; DNode.
  248. ; 
  249. ; kSupportsAuthenticationBit:
  250. ; If this bit is set, directory supports authentication manager calls.
  251. ; 
  252. ; kSupportsProxiesBit:
  253. ; If this bit is set, directory supports proxy related calls in authentication manager.
  254. ; 
  255. ; kSupportsFindRecordBit:
  256. ; If this bit is set, catalog supports find record call.
  257. ; 
  258. ; Bits and corresponding masks are as defined below.
  259. ; 
  260.  
  261. (defconstant $kSupportsDNodeNumberBit 0)
  262. (defconstant $kSupportsRecordCreationIDBit 1)
  263. (defconstant $kSupportsAttributeCreationIDBit 2)
  264. (defconstant $kSupportsMatchAllBit 3)
  265. (defconstant $kSupportsBeginsWithBit 4)
  266. (defconstant $kSupportsExactMatchBit 5)
  267. (defconstant $kSupportsEndsWithBit 6)
  268. (defconstant $kSupportsContainsBit 7)
  269. (defconstant $kSupportsOrderedEnumerationBit 8)
  270. (defconstant $kCanSupportNameOrderBit 9)
  271. (defconstant $kCanSupportTypeOrderBit 10)
  272. (defconstant $kSupportSortBackwardsBit 11)
  273. (defconstant $kSupportIndexRatioBit 12)
  274. (defconstant $kSupportsEnumerationContinueBit 13)
  275. (defconstant $kSupportsLookupContinueBit 14)
  276. (defconstant $kSupportsEnumerateAttributeTypeContinueBit 15)
  277. (defconstant $kSupportsEnumeratePseudonymContinueBit 16)
  278. (defconstant $kSupportsAliasesBit 17)
  279. (defconstant $kSupportsPseudonymsBit 18)
  280. (defconstant $kSupportsPartialPathNamesBit 19)
  281. (defconstant $kSupportsAuthenticationBit 20)
  282. (defconstant $kSupportsProxiesBit 21)
  283. (defconstant $kSupportsFindRecordBit 22)
  284.  
  285. ;  values of DirGestalt 
  286. (defconstant $kSupportsDNodeNumberMask #X1); 1<<kSupportsDNodeNumberBit
  287. (defconstant $kSupportsRecordCreationIDMask #X2); 1<<kSupportsRecordCreationIDBit
  288. (defconstant $kSupportsAttributeCreationIDMask #X4); 1<<kSupportsAttributeCreationIDBit
  289. (defconstant $kSupportsMatchAllMask #X8); 1<<kSupportsMatchAllBit
  290. (defconstant $kSupportsBeginsWithMask #X10); 1<<kSupportsBeginsWithBit
  291. (defconstant $kSupportsExactMatchMask #X20); 1<<kSupportsExactMatchBit
  292. (defconstant $kSupportsEndsWithMask #X40); 1<<kSupportsEndsWithBit
  293. (defconstant $kSupportsContainsMask #X80); 1<<kSupportsContainsBit
  294. (defconstant $kSupportsOrderedEnumerationMask #X100); 1<<kSupportsOrderedEnumerationBit
  295. (defconstant $kCanSupportNameOrderMask #X200); 1<<kCanSupportNameOrderBit
  296. (defconstant $kCanSupportTypeOrderMask #X400); 1<<kCanSupportTypeOrderBit
  297. (defconstant $kSupportSortBackwardsMask #X800); 1<<kSupportSortBackwardsBit
  298. (defconstant $kSupportIndexRatioMask #X1000); 1<<kSupportIndexRatioBit
  299. (defconstant $kSupportsEnumerationContinueMask #X2000); 1<<kSupportsEnumerationContinueBit
  300. (defconstant $kSupportsLookupContinueMask #X4000); 1<<kSupportsLookupContinueBit
  301. (defconstant $kSupportsEnumerateAttributeTypeContinueMask #X8000); 1<<kSupportsEnumerateAttributeTypeContinueBit
  302. (defconstant $kSupportsEnumeratePseudonymContinueMask #X10000); 1<<kSupportsEnumeratePseudonymContinueBit
  303. (defconstant $kSupportsAliasesMask #X20000); 1<<kSupportsAliasesBit
  304. (defconstant $kSupportsPseudonymsMask #X40000); 1<<kSupportsPseudonymsBit
  305. (defconstant $kSupportsPartialPathNamesMask #X80000); 1<<kSupportsPartialPathNamesBit
  306. (defconstant $kSupportsAuthenticationMask #X100000); 1<<kSupportsAuthenticationBit
  307. (defconstant $kSupportsProxiesMask #X200000); 1<<kSupportsProxiesBit
  308. (defconstant $kSupportsFindRecordMask #X400000); 1<<kSupportsFindRecordBit
  309.  
  310. ;  Values of AuthLocalIdentityOp 
  311.  
  312. (defconstant $kAuthLockLocalIdentityOp 1)
  313. (defconstant $kAuthUnlockLocalIdentityOp 2)
  314. (defconstant $kAuthLocalIdentityNameChangeOp 3)
  315.  
  316. ;  Values of AuthLocalIdentityLockAction 
  317. (defconstant $kAuthLockPending 1)
  318. (defconstant $kAuthLockWillBeDone 2)
  319.  
  320. ;  Values of AuthNotifications 
  321. (defconstant $kNotifyLockBit 0)
  322. (defconstant $kNotifyUnlockBit 1)
  323. (defconstant $kNotifyNameChangeBit 2)
  324. (defconstant $kNotifyLockMask #X1); 1<<kNotifyLockBit
  325. (defconstant $kNotifyUnlockMask #X2); 1<<kNotifyUnlockBit
  326. (defconstant $kNotifyNameChangeMask #X4); 1<<kNotifyNameChangeBit
  327.  
  328. (defconstant $kPersonalDirectoryFileCreator :|kl03|)
  329. (defconstant $kPersonalDirectoryFileType :|pabt|)
  330. (defconstant $kBusinessCardFileType :|bust|)
  331. (defconstant $kDirectoryFileType :|dirt|)
  332. (defconstant $kDNodeFileType :|dnod|)
  333. (defconstant $kDirsRootFileType :|drtt|)
  334. (defconstant $kRecordFileType :|rcrd|)
  335.  
  336. (def-mactype :DIRSORTOPTION (find-mactype :SIGNED-INTEGER))
  337.  
  338. (def-mactype :DIRSORTDIRECTION (find-mactype :SIGNED-INTEGER))
  339.  
  340. (def-mactype :CATEGORYMASK (find-mactype :SIGNED-LONG))
  341.  
  342. (def-mactype :ACCESSMASK (find-mactype :SIGNED-LONG))
  343.  
  344. (def-mactype :DIRGESTALT (find-mactype :SIGNED-LONG))
  345.  
  346. (def-mactype :AUTHLOCALIDENTITYOP (find-mactype :SIGNED-LONG))
  347.  
  348. (def-mactype :AUTHLOCALIDENTITYLOCKACTION (find-mactype :SIGNED-LONG))
  349.  
  350. (def-mactype :AUTHNOTIFICATIONS (find-mactype :SIGNED-LONG))
  351.  
  352. (defrecord DNodeID 
  353.    (dNodeNumber :SIGNED-LONG)   ;  dNodenumber  
  354.    (reserved1 :SIGNED-LONG)
  355.    (name (:POINTER :RSTRING))
  356.    (reserved2 :SIGNED-LONG)
  357.    )
  358.  
  359. (defrecord DirEnumSpec 
  360.    (enumFlag :SIGNED-LONG)
  361.    (indexRatio :SIGNED-INTEGER) ;  Approx Record Position between 1 and 100 If supported, 0 If not supported 
  362.    (:variant 
  363.       ((recordIdentifier :LOCALRECORDID))
  364.       ((dNodeIdentifier :DNODEID))
  365.       ))
  366.  
  367. (defrecord DirMetaInfo 
  368.    (info (:ARRAY :SIGNED-LONG 4))
  369.    )
  370.  
  371. (defrecord SLRV 
  372.    (script :SIGNED-INTEGER)     ;  Script code in which entries are sorted 
  373.    (language :SIGNED-INTEGER)   ;  Language code in which entries are sorted 
  374.    (regionCode :SIGNED-INTEGER) ;  Region code in which entries are sorted 
  375.    (version :SIGNED-INTEGER)    ;  version of oce sorting software 
  376.    )
  377.  
  378. ;  Directory types and operations 
  379.  
  380. (def-mactype :AUTHIDENTITY (find-mactype :SIGNED-LONG));  unique identifier for an identity 
  381. (def-mactype :LOCALIDENTITY (find-mactype :SIGNED-LONG));  Umbrella LocalIdentity 
  382.  
  383. (defrecord DESKey               ;  A DES key is 8 bytes of data 
  384.    (a :SIGNED-LONG)
  385.    (b :SIGNED-LONG)
  386.    )
  387.  
  388. (def-mactype :RC4KEY (find-mactype :ARRAY))
  389.  
  390. (def-mactype :AUTHKEYTYPE (find-mactype :SIGNED-LONG))
  391.  
  392. (defrecord AuthKey              ;  key type followed by its data 
  393.    (keyType :SIGNED-LONG)
  394.    (:variant 
  395.       ((des :DESKEY))
  396.       ((rc4 (:ARRAY :UNSIGNED-BYTE 8)))     ; (:ARRAY :UNSIGNED-BYTE (- #$KRC4KEYSIZEINBYTES 1 -1))
  397.       ))
  398.  
  399. (def-mactype :AUTHKEYPTR (find-mactype :POINTER))
  400.  
  401. ; 
  402. ; This header is common to all the parameter blocks.  Clients should not directly
  403. ; touch any of these fields except ioCompletion.  ioCompletion is the
  404. ; completion routine pointer for async calls; it is ignored for sync calls.
  405. ; ioResult is the result code from the call.
  406. ; 
  407.  
  408. (defrecord AuthDirParamHeader 
  409.    (qLink :POINTER)
  410.    (reserved1 :SIGNED-LONG)
  411.    (reserved2 :SIGNED-LONG)
  412.    (ioCompletion :POINTER)
  413.    (ioResult :SIGNED-INTEGER)
  414.    (saveA5 :SIGNED-LONG)
  415.    (reqCode :SIGNED-INTEGER)
  416.    (reserved (:ARRAY :SIGNED-LONG 2))
  417.    (serverHint :ADDRBLOCK)
  418.    (dsRefNum :SIGNED-INTEGER)
  419.    (callID :SIGNED-LONG)
  420.    (identity :SIGNED-LONG)
  421.    (gReserved1 :SIGNED-LONG)
  422.    (gReserved2 :SIGNED-LONG)
  423.    (gReserved3 :SIGNED-LONG)
  424.    (clientData :SIGNED-LONG)
  425.    )
  426.  
  427. ; ****************************************************************************
  428. ; 
  429. ;         Authentication Manager operations
  430. ; 
  431. ; ****************************************************************************
  432. ; 
  433. ; kAuthResolveCreationID:
  434. ; userRecord will contain the user information whose creationID has to be
  435. ; returned. A client must make this call when he does not know the creaitionID.
  436. ; The creationID must be set to nil before making the call. The server will attempt
  437. ; to match the recordid's in the data base which match the user name and
  438. ; type in the record.  Depending on number of matchings, following
  439. ; results will be returned.
  440. ; Exactly One Match : CreationID in RecordID and also in buffer (if buffer is given)
  441. ; totalMatches = actualMatches = 1.
  442. ; > 1 Match:
  443. ;     Buffer is Large Enough:
  444. ;     totalMatches = actualMatches
  445. ;     Buffer will contain all the CIDs, kOCEAmbiguousMatches error.
  446. ; > 1 Match:
  447. ;     Buffer is not Large Enough:
  448. ;     totalMatches > actualMatches
  449. ;     Buffer will contain all the CIDs (equal to actualMatches), daMoreDataError error.
  450. ; 0 Matches:
  451. ;  kOCENoSuchRecord error
  452. ; 
  453.  
  454. (defrecord AuthResolveCreationIDPB 
  455.    (qLink :POINTER)
  456.    (reserved1 :SIGNED-LONG)
  457.    (reserved2 :SIGNED-LONG)
  458.    (ioCompletion :POINTER)
  459.    (ioResult :SIGNED-INTEGER)
  460.    (saveA5 :SIGNED-LONG)
  461.    (reqCode :SIGNED-INTEGER)
  462.    (reserved (:ARRAY :SIGNED-LONG 2))
  463.    (serverHint :ADDRBLOCK)
  464.    (dsRefNum :SIGNED-INTEGER)
  465.    (callID :SIGNED-LONG)
  466.    (identity :SIGNED-LONG)
  467.    (gReserved1 :SIGNED-LONG)
  468.    (gReserved2 :SIGNED-LONG)
  469.    (gReserved3 :SIGNED-LONG)
  470.    (clientData :SIGNED-LONG)
  471.  
  472.    (userRecord (:POINTER :RECORDID));   --> OCE name(Record) of the user 
  473.    (bufferLength :SIGNED-LONG)  ;   --> Buffer Size to hold duplicate Info 
  474.    (buffer :POINTER)            ;   --> Buffer  to hold duplicate Info 
  475.    (totalMatches :SIGNED-LONG)  ;  <--  Total Number of matching names found 
  476.    (actualMatches :SIGNED-LONG) ;  <--  Number of matches returned in the buffer 
  477.    )
  478.  
  479. ; 
  480. ; kAuthBindSpecificIdentity:
  481. ; userRecord will contain the user information whose identity has to be
  482. ; verified. userKey will contain the userKey. An Identity is returned which
  483. ; binds the key and the userRecord. The identity returned can be used in the 'identity'
  484. ; field in the header portion (AuthDirParamHeader) for authenticating the Directory and
  485. ; Authentication manager calls.
  486. ; 
  487.  
  488. (defrecord AuthBindSpecificIdentityPB 
  489.    (qLink :POINTER)
  490.    (reserved1 :SIGNED-LONG)
  491.    (reserved2 :SIGNED-LONG)
  492.    (ioCompletion :POINTER)
  493.    (ioResult :SIGNED-INTEGER)
  494.    (saveA5 :SIGNED-LONG)
  495.    (reqCode :SIGNED-INTEGER)
  496.    (reserved (:ARRAY :SIGNED-LONG 2))
  497.    (serverHint :ADDRBLOCK)
  498.    (dsRefNum :SIGNED-INTEGER)
  499.    (callID :SIGNED-LONG)
  500.    (identity :SIGNED-LONG)
  501.    (gReserved1 :SIGNED-LONG)
  502.    (gReserved2 :SIGNED-LONG)
  503.    (gReserved3 :SIGNED-LONG)
  504.    (clientData :SIGNED-LONG)
  505.  
  506.    (userIdentity :SIGNED-LONG)  ;  <--  binding identity 
  507.    (userRecord (:POINTER :RECORDID));   --> OCE name(Record) of the user 
  508.    (userKey (:POINTER :AUTHKEY));   --> OCE Key for the user 
  509.    )
  510.  
  511. ; 
  512. ; kAuthUnbindSpecificIdentity:
  513. ; This call will unbind the userRecord and key which were bind earlier.
  514. ; 
  515.  
  516. (defrecord AuthUnbindSpecificIdentityPB 
  517.    (qLink :POINTER)
  518.    (reserved1 :SIGNED-LONG)
  519.    (reserved2 :SIGNED-LONG)
  520.    (ioCompletion :POINTER)
  521.    (ioResult :SIGNED-INTEGER)
  522.    (saveA5 :SIGNED-LONG)
  523.    (reqCode :SIGNED-INTEGER)
  524.    (reserved (:ARRAY :SIGNED-LONG 2))
  525.    (serverHint :ADDRBLOCK)
  526.    (dsRefNum :SIGNED-INTEGER)
  527.    (callID :SIGNED-LONG)
  528.    (identity :SIGNED-LONG)
  529.    (gReserved1 :SIGNED-LONG)
  530.    (gReserved2 :SIGNED-LONG)
  531.    (gReserved3 :SIGNED-LONG)
  532.    (clientData :SIGNED-LONG)
  533.  
  534.    (userIdentity :SIGNED-LONG)  ;   --> identity to be deleted 
  535.    )
  536.  
  537. ; 
  538. ; kAuthGetSpecificIdentityInfo:
  539. ; This call will return the userRecord for the given identity. Note: key is not
  540. ; returned because this would compromise security.
  541. ; 
  542.  
  543. (defrecord AuthGetSpecificIdentityInfoPB 
  544.    (qLink :POINTER)
  545.    (reserved1 :SIGNED-LONG)
  546.    (reserved2 :SIGNED-LONG)
  547.    (ioCompletion :POINTER)
  548.    (ioResult :SIGNED-INTEGER)
  549.    (saveA5 :SIGNED-LONG)
  550.    (reqCode :SIGNED-INTEGER)
  551.    (reserved (:ARRAY :SIGNED-LONG 2))
  552.    (serverHint :ADDRBLOCK)
  553.    (dsRefNum :SIGNED-INTEGER)
  554.    (callID :SIGNED-LONG)
  555.    (identity :SIGNED-LONG)
  556.    (gReserved1 :SIGNED-LONG)
  557.    (gReserved2 :SIGNED-LONG)
  558.    (gReserved3 :SIGNED-LONG)
  559.    (clientData :SIGNED-LONG)
  560.  
  561.    (userIdentity :SIGNED-LONG)  ;   --> identity of initiator 
  562.    (userRecord (:POINTER :RECORDID));  <--  OCE name(Record) of the user 
  563.    )
  564.  
  565. ; 
  566. ; kAuthAddKey:
  567. ; userRecord will contain the user information whose identity has to be
  568. ; created. userKey will point to the key to be created. password points to
  569. ; an RString containing the password used to generate the key.
  570. ; 
  571.  
  572. (defrecord AuthAddKeyPB 
  573.    (qLink :POINTER)
  574.    (reserved1 :SIGNED-LONG)
  575.    (reserved2 :SIGNED-LONG)
  576.    (ioCompletion :POINTER)
  577.    (ioResult :SIGNED-INTEGER)
  578.    (saveA5 :SIGNED-LONG)
  579.    (reqCode :SIGNED-INTEGER)
  580.    (reserved (:ARRAY :SIGNED-LONG 2))
  581.    (serverHint :ADDRBLOCK)
  582.    (dsRefNum :SIGNED-INTEGER)
  583.    (callID :SIGNED-LONG)
  584.    (identity :SIGNED-LONG)
  585.    (gReserved1 :SIGNED-LONG)
  586.    (gReserved2 :SIGNED-LONG)
  587.    (gReserved3 :SIGNED-LONG)
  588.    (clientData :SIGNED-LONG)
  589.  
  590.    (userRecord (:POINTER :RECORDID));   --> OCE name(Record) of the user 
  591.    (userKey (:POINTER :AUTHKEY));  <--  OCE Key for the user 
  592.    (password (:POINTER :RSTRING));   --> Pointer to password STRING 
  593.    )
  594.  
  595. ; 
  596. ; kAuthChangeKey:
  597. ; userRecord will contain the user information whose identity has to be
  598. ; created. userKey will point to the key to be created. password points to
  599. ; an RString containing the password used to generate the key.
  600. ; 
  601.  
  602. (defrecord AuthChangeKeyPB 
  603.    (qLink :POINTER)
  604.    (reserved1 :SIGNED-LONG)
  605.    (reserved2 :SIGNED-LONG)
  606.    (ioCompletion :POINTER)
  607.    (ioResult :SIGNED-INTEGER)
  608.    (saveA5 :SIGNED-LONG)
  609.    (reqCode :SIGNED-INTEGER)
  610.    (reserved (:ARRAY :SIGNED-LONG 2))
  611.    (serverHint :ADDRBLOCK)
  612.    (dsRefNum :SIGNED-INTEGER)
  613.    (callID :SIGNED-LONG)
  614.    (identity :SIGNED-LONG)
  615.    (gReserved1 :SIGNED-LONG)
  616.    (gReserved2 :SIGNED-LONG)
  617.    (gReserved3 :SIGNED-LONG)
  618.    (clientData :SIGNED-LONG)
  619.  
  620.    (userRecord (:POINTER :RECORDID));   --> OCE name(Record) of the user 
  621.    (userKey (:POINTER :AUTHKEY));  <--  New OCE Key for the user 
  622.    (password (:POINTER :RSTRING));   -->Pointer to the new password STRING 
  623.    )
  624.  
  625. ; 
  626. ; AuthDeleteKey:
  627. ; userRecord will contain the user information whose Key has to be deleted.
  628. ; 
  629.  
  630. (defrecord AuthDeleteKeyPB 
  631.    (qLink :POINTER)
  632.    (reserved1 :SIGNED-LONG)
  633.    (reserved2 :SIGNED-LONG)
  634.    (ioCompletion :POINTER)
  635.    (ioResult :SIGNED-INTEGER)
  636.    (saveA5 :SIGNED-LONG)
  637.    (reqCode :SIGNED-INTEGER)
  638.    (reserved (:ARRAY :SIGNED-LONG 2))
  639.    (serverHint :ADDRBLOCK)
  640.    (dsRefNum :SIGNED-INTEGER)
  641.    (callID :SIGNED-LONG)
  642.    (identity :SIGNED-LONG)
  643.    (gReserved1 :SIGNED-LONG)
  644.    (gReserved2 :SIGNED-LONG)
  645.    (gReserved3 :SIGNED-LONG)
  646.    (clientData :SIGNED-LONG)
  647.  
  648.    (userRecord (:POINTER :RECORDID));   --> OCE name(Record) of the user 
  649.    )
  650.  
  651. ;  AuthPasswordToKey: Converts an RString into a key. 
  652.  
  653. (defrecord AuthPasswordToKeyPB 
  654.    (qLink :POINTER)
  655.    (reserved1 :SIGNED-LONG)
  656.    (reserved2 :SIGNED-LONG)
  657.    (ioCompletion :POINTER)
  658.    (ioResult :SIGNED-INTEGER)
  659.    (saveA5 :SIGNED-LONG)
  660.    (reqCode :SIGNED-INTEGER)
  661.    (reserved (:ARRAY :SIGNED-LONG 2))
  662.    (serverHint :ADDRBLOCK)
  663.    (dsRefNum :SIGNED-INTEGER)
  664.    (callID :SIGNED-LONG)
  665.    (identity :SIGNED-LONG)
  666.    (gReserved1 :SIGNED-LONG)
  667.    (gReserved2 :SIGNED-LONG)
  668.    (gReserved3 :SIGNED-LONG)
  669.    (clientData :SIGNED-LONG)
  670.  
  671.    (userRecord (:POINTER :RECORDID));   --> OCE name(Record) of the user 
  672.    (key (:POINTER :AUTHKEY))    ;  <--  
  673.    (password (:POINTER :RSTRING));   -->Pointer to the new password STRING 
  674.    )
  675.  
  676. ; 
  677. ; kAuthGetCredentials:
  678. ; userRecord will contain the user information whose identity has to be
  679. ; kMailDeletedMask. keyType (e.g. asDESKey) will indicate what type of key has to
  680. ; be deleted.
  681. ; 
  682.  
  683. (defrecord AuthGetCredentialsPB 
  684.    (qLink :POINTER)
  685.    (reserved1 :SIGNED-LONG)
  686.    (reserved2 :SIGNED-LONG)
  687.    (ioCompletion :POINTER)
  688.    (ioResult :SIGNED-INTEGER)
  689.    (saveA5 :SIGNED-LONG)
  690.    (reqCode :SIGNED-INTEGER)
  691.    (reserved (:ARRAY :SIGNED-LONG 2))
  692.    (serverHint :ADDRBLOCK)
  693.    (dsRefNum :SIGNED-INTEGER)
  694.    (callID :SIGNED-LONG)
  695.    (identity :SIGNED-LONG)
  696.    (gReserved1 :SIGNED-LONG)
  697.    (gReserved2 :SIGNED-LONG)
  698.    (gReserved3 :SIGNED-LONG)
  699.    (clientData :SIGNED-LONG)
  700.  
  701.    (userIdentity :SIGNED-LONG)  ;   --> identity of initiator 
  702.    (recipient (:POINTER :RECORDID));   --> OCE name of recipient 
  703.    (sessionKey (:POINTER :AUTHKEY));  <--  session key 
  704.    (expiry :SIGNED-LONG)        ;  <--> desired/actual expiry 
  705.    (credentialsLength :SIGNED-LONG);  <--> max/actual credentials size 
  706.    (credentials :POINTER)       ;  <--  buffer where credentials are returned 
  707.    )
  708.  
  709. ; 
  710. ; AuthDecryptCredentialsPB:
  711. ; Changes:
  712. ; userKey is changed userIdentity.
  713. ; userRecord is changed to initiatorRecord. User must supply buffer
  714. ; to hold initiatorRecord.
  715. ; agentList has changed to agent. There wil be no call back.
  716. ; User must supply buffer to hold agent Record.
  717. ; An additional BOOLEAN parameter 'hasAgent' is included.
  718. ; Toolbox will set this if an 'Agent' record is found in the
  719. ; credentials. If RecordIDPtr is 'nil', no agent record will
  720. ; be copied. However user can examine 'hasAgent', If true user
  721. ; can reissue this call with apprpriate buffer for getting a recordID.
  722. ; agent has changed to intermediary.  User must supply buffer to hold
  723. ; intermediary Record.  The toolbox will set 'hasIntermediary' if an
  724. ; 'intermediary' record is found in the credentials.
  725. ; 
  726.  
  727. (defrecord AuthDecryptCredentialsPB 
  728.    (qLink :POINTER)
  729.    (reserved1 :SIGNED-LONG)
  730.    (reserved2 :SIGNED-LONG)
  731.    (ioCompletion :POINTER)
  732.    (ioResult :SIGNED-INTEGER)
  733.    (saveA5 :SIGNED-LONG)
  734.    (reqCode :SIGNED-INTEGER)
  735.    (reserved (:ARRAY :SIGNED-LONG 2))
  736.    (serverHint :ADDRBLOCK)
  737.    (dsRefNum :SIGNED-INTEGER)
  738.    (callID :SIGNED-LONG)
  739.    (identity :SIGNED-LONG)
  740.    (gReserved1 :SIGNED-LONG)
  741.    (gReserved2 :SIGNED-LONG)
  742.    (gReserved3 :SIGNED-LONG)
  743.    (clientData :SIGNED-LONG)
  744.  
  745.    (userIdentity :SIGNED-LONG)  ;   --> user's Identity 
  746.    (initiatorRecord (:POINTER :RECORDID));  <--  OCE name of the initiator 
  747.    (sessionKey (:POINTER :AUTHKEY));  <--  session key 
  748.    (expiry :SIGNED-LONG)        ;  <--  credentials expiry time 
  749.    (credentialsLength :SIGNED-LONG);   --> actual credentials size 
  750.    (credentials :POINTER)       ;   --> credentials to be decrypted 
  751.    (issueTime :SIGNED-LONG)     ;  <--  credentials expiry time 
  752.    (hasIntermediary :BOOLEAN)   ;  <--  if true, An intermediary Record was found in credentials 
  753.    (intermediary (:POINTER :RECORDID));  <--  recordID of the intermediary 
  754.    )
  755.  
  756. (defrecord AuthMakeChallengePB 
  757.    (qLink :POINTER)
  758.    (reserved1 :SIGNED-LONG)
  759.    (reserved2 :SIGNED-LONG)
  760.    (ioCompletion :POINTER)
  761.    (ioResult :SIGNED-INTEGER)
  762.    (saveA5 :SIGNED-LONG)
  763.    (reqCode :SIGNED-INTEGER)
  764.    (reserved (:ARRAY :SIGNED-LONG 2))
  765.    (serverHint :ADDRBLOCK)
  766.    (dsRefNum :SIGNED-INTEGER)
  767.    (callID :SIGNED-LONG)
  768.    (identity :SIGNED-LONG)
  769.    (gReserved1 :SIGNED-LONG)
  770.    (gReserved2 :SIGNED-LONG)
  771.    (gReserved3 :SIGNED-LONG)
  772.    (clientData :SIGNED-LONG)
  773.  
  774.    (key (:POINTER :AUTHKEY))    ;   --> UnEncrypted SessionKey 
  775.    (challenge :POINTER)         ;  <--  Encrypted Challenge 
  776.    (challengeBufferLength :SIGNED-LONG);   ->length of challenge buffer 
  777.    (challengeLength :SIGNED-LONG);   <-length of Encrypted Challenge 
  778.    )
  779.  
  780. (defrecord AuthMakeReplyPB 
  781.    (qLink :POINTER)
  782.    (reserved1 :SIGNED-LONG)
  783.    (reserved2 :SIGNED-LONG)
  784.    (ioCompletion :POINTER)
  785.    (ioResult :SIGNED-INTEGER)
  786.    (saveA5 :SIGNED-LONG)
  787.    (reqCode :SIGNED-INTEGER)
  788.    (reserved (:ARRAY :SIGNED-LONG 2))
  789.    (serverHint :ADDRBLOCK)
  790.    (dsRefNum :SIGNED-INTEGER)
  791.    (callID :SIGNED-LONG)
  792.    (identity :SIGNED-LONG)
  793.    (gReserved1 :SIGNED-LONG)
  794.    (gReserved2 :SIGNED-LONG)
  795.    (gReserved3 :SIGNED-LONG)
  796.    (clientData :SIGNED-LONG)
  797.  
  798.    (key (:POINTER :AUTHKEY))    ;   --> UnEncrypted SessionKey 
  799.    (challenge :POINTER)         ;   --> Encrypted Challenge 
  800.    (reply :POINTER)             ;  <--  Encrypted Reply 
  801.    (replyBufferLength :SIGNED-LONG);   -->length of challenge buffer 
  802.    (challengeLength :SIGNED-LONG);   --> length of Encrypted Challenge 
  803.    (replyLength :SIGNED-LONG)   ;  <--  length of Encrypted Reply 
  804.    )
  805.  
  806. (defrecord AuthVerifyReplyPB 
  807.    (qLink :POINTER)
  808.    (reserved1 :SIGNED-LONG)
  809.    (reserved2 :SIGNED-LONG)
  810.    (ioCompletion :POINTER)
  811.    (ioResult :SIGNED-INTEGER)
  812.    (saveA5 :SIGNED-LONG)
  813.    (reqCode :SIGNED-INTEGER)
  814.    (reserved (:ARRAY :SIGNED-LONG 2))
  815.    (serverHint :ADDRBLOCK)
  816.    (dsRefNum :SIGNED-INTEGER)
  817.    (callID :SIGNED-LONG)
  818.    (identity :SIGNED-LONG)
  819.    (gReserved1 :SIGNED-LONG)
  820.    (gReserved2 :SIGNED-LONG)
  821.    (gReserved3 :SIGNED-LONG)
  822.    (clientData :SIGNED-LONG)
  823.  
  824.    (key (:POINTER :AUTHKEY))    ;   --> UnEncrypted SessionKey 
  825.    (challenge :POINTER)         ;   --> Encrypted Challenge 
  826.    (reply :POINTER)             ;   --> Encrypted Reply 
  827.    (challengeLength :SIGNED-LONG);   --> length of Encrypted Challenge 
  828.    (replyLength :SIGNED-LONG)   ;   --> length of Encrypted Reply 
  829.    )
  830.  
  831. ; 
  832. ; kAuthGetUTCTime:
  833. ; RLI will contain a valid RLI for a cluster server.
  834. ; UTC(GMT) time from one of the cluster server will be returned.
  835. ; An 'offSet' from UTC(GMT) to Mac Local Time will also be returned.
  836. ; If RLI is nil Map DA is used to determine UTC(GMT).
  837. ; Mac Local Time = theUTCTime + theUTCOffset.
  838. ; 
  839.  
  840. (defrecord AuthGetUTCTimePB 
  841.    (qLink :POINTER)
  842.    (reserved1 :SIGNED-LONG)
  843.    (reserved2 :SIGNED-LONG)
  844.    (ioCompletion :POINTER)
  845.    (ioResult :SIGNED-INTEGER)
  846.    (saveA5 :SIGNED-LONG)
  847.    (reqCode :SIGNED-INTEGER)
  848.    (reserved (:ARRAY :SIGNED-LONG 2))
  849.    (serverHint :ADDRBLOCK)
  850.    (dsRefNum :SIGNED-INTEGER)
  851.    (callID :SIGNED-LONG)
  852.    (identity :SIGNED-LONG)
  853.    (gReserved1 :SIGNED-LONG)
  854.    (gReserved2 :SIGNED-LONG)
  855.    (gReserved3 :SIGNED-LONG)
  856.    (clientData :SIGNED-LONG)
  857.  
  858.    (pRLI (:POINTER :PACKEDRLI)) ;   --> packed RLI of the Node, whose server's UTC is requested 
  859.    (theUTCTime :SIGNED-LONG)    ;  <--  current UTC(GMT) Time utc seconds since 1/1/1904 
  860.    (theUTCOffset :SIGNED-LONG)  ;  <--  offset from UTC(GMT) seconds EAST of Greenwich 
  861.    )
  862.  
  863. ; 
  864. ; kAuthMakeProxy:
  865. ; A user represented bu the 'userIdentity' can make a proxy using this call.
  866. ; 'recipient' is the RecordID of the recipient whom user is requesting proxy.
  867. ; 'intermediary' is the RecordID of the intermediary holding proxy for the user.
  868. ; 'firstValid' is time at which proxy becomes valid.
  869. ; 'expiry' is the time at which proxy must expire.
  870. ; 'proxyLength' will have the length of the buffer pointed by 'proxy' as input.
  871. ; When the call completes, it will hold the actual length of proxy. If the
  872. ; call completes 'kOCEMoreData' error, client can reissue the call with the
  873. ; buffer size as 'proxyLength' returned.
  874. ; expiry is a suggestion, and may be adjusted to be earlier by the ADAP/OCE server.
  875. ; The 'proxy' obtained like this might be used by the 'intermediary' to obtain credentials
  876. ; for the server using TradeProxyForCredentials call.
  877. ; authDataLength and authData are intended for possible future work, but are
  878. ; ignored for now.
  879. ; 
  880.  
  881. (defrecord AuthMakeProxyPB 
  882.    (qLink :POINTER)
  883.    (reserved1 :SIGNED-LONG)
  884.    (reserved2 :SIGNED-LONG)
  885.    (ioCompletion :POINTER)
  886.    (ioResult :SIGNED-INTEGER)
  887.    (saveA5 :SIGNED-LONG)
  888.    (reqCode :SIGNED-INTEGER)
  889.    (reserved (:ARRAY :SIGNED-LONG 2))
  890.    (serverHint :ADDRBLOCK)
  891.    (dsRefNum :SIGNED-INTEGER)
  892.    (callID :SIGNED-LONG)
  893.    (identity :SIGNED-LONG)
  894.    (gReserved1 :SIGNED-LONG)
  895.    (gReserved2 :SIGNED-LONG)
  896.    (gReserved3 :SIGNED-LONG)
  897.    (clientData :SIGNED-LONG)
  898.  
  899.    (userIdentity :SIGNED-LONG)  ;   --> identity of principal 
  900.    (recipient (:POINTER :RECORDID));   --> OCE name of recipient 
  901.    (firstValid :SIGNED-LONG)    ;   --> time at which proxy becomes valid 
  902.    (expiry :SIGNED-LONG)        ;   --> time at which proxy expires 
  903.    (authDataLength :SIGNED-LONG);   --> size of authorization data 
  904.    (authData :POINTER)          ;   --> pointer to authorization data 
  905.    (proxyLength :SIGNED-LONG)   ;  <--> max/actual proxy size 
  906.    (proxy :POINTER)             ;  <--> buffer where proxy is returned 
  907.    (intermediary (:POINTER :RECORDID));   --> RecordID of intermediary 
  908.    )
  909.  
  910. ; 
  911. ; kAuthTradeProxyForCredentials:
  912. ; Using this call, intermediary holding a 'proxy' for a recipient may obtain credentials
  913. ; for that recipient. 'userIdentity' is the identity for the 'intermediary'.
  914. ; 'recipient' is the RecordID for whom credetials are requested.
  915. ; 'principal' is the RecordID of the user who created the proxy.
  916. ; 'proxyLength' is the length of data pointed by 'proxy.
  917. ; If the call is succesfull, credentials will be returned in the
  918. ; buffer pointed by 'credentials'. 'expiry' is the desired expiry time at input.
  919. ; When call succeds this will have expiry time of credentials.
  920. ; This is very similar to GetCredentials except that we (course: of) need the proxy,
  921. ; but we also need the name of the principal who created the proxy.
  922. ; 
  923.  
  924. (defrecord AuthTradeProxyForCredentialsPB 
  925.    (qLink :POINTER)
  926.    (reserved1 :SIGNED-LONG)
  927.    (reserved2 :SIGNED-LONG)
  928.    (ioCompletion :POINTER)
  929.    (ioResult :SIGNED-INTEGER)
  930.    (saveA5 :SIGNED-LONG)
  931.    (reqCode :SIGNED-INTEGER)
  932.    (reserved (:ARRAY :SIGNED-LONG 2))
  933.    (serverHint :ADDRBLOCK)
  934.    (dsRefNum :SIGNED-INTEGER)
  935.    (callID :SIGNED-LONG)
  936.    (identity :SIGNED-LONG)
  937.    (gReserved1 :SIGNED-LONG)
  938.    (gReserved2 :SIGNED-LONG)
  939.    (gReserved3 :SIGNED-LONG)
  940.    (clientData :SIGNED-LONG)
  941.  
  942.    (userIdentity :SIGNED-LONG)  ;   --> identity of intermediary 
  943.    (recipient (:POINTER :RECORDID));   --> OCE name of recipient 
  944.    (sessionKey (:POINTER :AUTHKEY));  <--  session key 
  945.    (expiry :SIGNED-LONG)        ;  <--> desired/actual expiry 
  946.    (credentialsLength :SIGNED-LONG);  <--> max/actual credentials size 
  947.    (credentials :POINTER)       ;  <--> buffer where credentials are returned 
  948.    (proxyLength :SIGNED-LONG)   ;   --> actual proxy size 
  949.    (proxy :POINTER)             ;   --> buffer containing proxy 
  950.    (principal (:POINTER :RECORDID));   --> RecordID of principal 
  951.    )
  952.  
  953. ;  API for Local Identity Interface 
  954. ; 
  955. ; AuthGetLocalIdentityPB:
  956. ; A Collaborative application intended to work under the umbrella of LocalIdentity
  957. ; for the OCE toolbox will have to make this call to obtain LocalIdentity.
  958. ; If LocalIdentity has not been created, then application will get
  959. ; 'daLocalIdentityNotExistsErr'. The calling application then guide the user to
  960. ; Login by making SDPPromptForLocalIdentity call.
  961. ; If the LocalIdentity has not been setup, then calling application will
  962. ; receieve 'daOCESetupRequiredErr'. In this case application should put the dialog
  963. ; recommended by the OCE Setup document and guide the user through OCE Setup.
  964. ; If a backGround application or stand alone code requires LocalIdentity, if it gets the
  965. ; OSErr from LocalIdentity and can not call SDPPromptForLocalIdentity, it should it self
  966. ; register with the toolbox using kAuthAddToLocalIdentityQueue call. It will be notified
  967. ; when a LocalIdentity gets created by a foreground application.
  968. ; 
  969.  
  970. (defrecord AuthGetLocalIdentityPB 
  971.    (qLink :POINTER)
  972.    (reserved1 :SIGNED-LONG)
  973.    (reserved2 :SIGNED-LONG)
  974.    (ioCompletion :POINTER)
  975.    (ioResult :SIGNED-INTEGER)
  976.    (saveA5 :SIGNED-LONG)
  977.    (reqCode :SIGNED-INTEGER)
  978.    (reserved (:ARRAY :SIGNED-LONG 2))
  979.    (serverHint :ADDRBLOCK)
  980.    (dsRefNum :SIGNED-INTEGER)
  981.    (callID :SIGNED-LONG)
  982.    (identity :SIGNED-LONG)
  983.    (gReserved1 :SIGNED-LONG)
  984.    (gReserved2 :SIGNED-LONG)
  985.    (gReserved3 :SIGNED-LONG)
  986.    (clientData :SIGNED-LONG)
  987.  
  988.    (theLocalIdentity :SIGNED-LONG);  <--  LocalIdentity 
  989.    )
  990.  
  991. ; 
  992. ; kAuthUnlockLocalIdentity:
  993. ; The LocalIdentity can be created using this call.
  994. ; The userName and password correspond to the LocalIdentity setup.
  995. ; If the password matches, then collabIdentity will be returned.
  996. ; Typically SDPPromptForLocalIdentity call will make this call.
  997. ; All applications which are registered through kAuthAddToLocalIdentityQueue
  998. ; will be notified.
  999. ; 
  1000.  
  1001. (defrecord AuthUnlockLocalIdentityPB 
  1002.    (qLink :POINTER)
  1003.    (reserved1 :SIGNED-LONG)
  1004.    (reserved2 :SIGNED-LONG)
  1005.    (ioCompletion :POINTER)
  1006.    (ioResult :SIGNED-INTEGER)
  1007.    (saveA5 :SIGNED-LONG)
  1008.    (reqCode :SIGNED-INTEGER)
  1009.    (reserved (:ARRAY :SIGNED-LONG 2))
  1010.    (serverHint :ADDRBLOCK)
  1011.    (dsRefNum :SIGNED-INTEGER)
  1012.    (callID :SIGNED-LONG)
  1013.    (identity :SIGNED-LONG)
  1014.    (gReserved1 :SIGNED-LONG)
  1015.    (gReserved2 :SIGNED-LONG)
  1016.    (gReserved3 :SIGNED-LONG)
  1017.    (clientData :SIGNED-LONG)
  1018.  
  1019.    (theLocalIdentity :SIGNED-LONG);  <--  LocalIdentity 
  1020.    (userName (:POINTER :RSTRING));   --> userName 
  1021.    (password (:POINTER :RSTRING));   -->user password 
  1022.    )
  1023.  
  1024. ; 
  1025. ; kAuthLockLocalIdentity:
  1026. ; With this call existing LocalIdentity can be locked. If the ASDeleteLocalIdetity
  1027. ; call fails with 'kOCEOperationDenied' error, name will contain the application which
  1028. ; denied the operation. This name will be supplied by the application
  1029. ; when it registered through kAuthAddToLocalIdentityQueue call
  1030. ; 
  1031.  
  1032. (defrecord AuthLockLocalIdentityPB 
  1033.    (qLink :POINTER)
  1034.    (reserved1 :SIGNED-LONG)
  1035.    (reserved2 :SIGNED-LONG)
  1036.    (ioCompletion :POINTER)
  1037.    (ioResult :SIGNED-INTEGER)
  1038.    (saveA5 :SIGNED-LONG)
  1039.    (reqCode :SIGNED-INTEGER)
  1040.    (reserved (:ARRAY :SIGNED-LONG 2))
  1041.    (serverHint :ADDRBLOCK)
  1042.    (dsRefNum :SIGNED-INTEGER)
  1043.    (callID :SIGNED-LONG)
  1044.    (identity :SIGNED-LONG)
  1045.    (gReserved1 :SIGNED-LONG)
  1046.    (gReserved2 :SIGNED-LONG)
  1047.    (gReserved3 :SIGNED-LONG)
  1048.    (clientData :SIGNED-LONG)
  1049.  
  1050.    (theLocalIdentity :SIGNED-LONG);   --> LocalIdentity 
  1051.    (name (:POINTER (:STRING 255)));  <--  name of the app which denied delete 
  1052.    )
  1053.  
  1054. (def-mactype :NOTIFICATIONPROC (find-mactype :POINTER))
  1055. ;  FUNCTION NotificationProc(clientData: LONGINT; callValue: AuthLocalIdentityOp;
  1056. ;         actionValue: AuthLocalIdentityLockAction; identity: LocalIdentity): BOOLEAN;
  1057.  
  1058. ; 
  1059. ; kAuthAddToLocalIdentityQueue:
  1060. ; An application requiring notification of locking/unlocking of the
  1061. ; LocalIdentity can install itself using this call. The function provided
  1062. ; in 'notifyProc' will be called whenever the requested event happens.
  1063. ; When an AuthLockLocalIdentity call is made to the toolbox, the notificationProc
  1064. ; will be called with 'kAuthLockPending'. The application may refuse the lock by returning
  1065. ; a 'true' value. If all the registered entries return 'false' value, locking will be done
  1066. ; successfully. Otherwise 'kOCEOperationDenied' error is returned to the caller. The appName
  1067. ; (registered with the notificationProc) of the application which denied locking is also
  1068. ; returned to the caller making the AuthLockIdentity call.
  1069. ; 
  1070.  
  1071. (defrecord AuthAddToLocalIdentityQueuePB 
  1072.    (qLink :POINTER)
  1073.    (reserved1 :SIGNED-LONG)
  1074.    (reserved2 :SIGNED-LONG)
  1075.    (ioCompletion :POINTER)
  1076.    (ioResult :SIGNED-INTEGER)
  1077.    (saveA5 :SIGNED-LONG)
  1078.    (reqCode :SIGNED-INTEGER)
  1079.    (reserved (:ARRAY :SIGNED-LONG 2))
  1080.    (serverHint :ADDRBLOCK)
  1081.    (dsRefNum :SIGNED-INTEGER)
  1082.    (callID :SIGNED-LONG)
  1083.    (identity :SIGNED-LONG)
  1084.    (gReserved1 :SIGNED-LONG)
  1085.    (gReserved2 :SIGNED-LONG)
  1086.    (gReserved3 :SIGNED-LONG)
  1087.    (clientData :SIGNED-LONG)
  1088.  
  1089.    (notifyProc :POINTER)        ;   --> notification procedure 
  1090.    (notifyFlags :SIGNED-LONG)   ;   --> notifyFlags 
  1091.    (appName (:POINTER (:STRING 255)));   --> name of application to be returned in Delete/Stop 
  1092.    )
  1093.  
  1094. ; 
  1095. ; kAuthRemoveFromLocalIdentityQueue:
  1096.  
  1097. (defrecord AuthRemoveFromLocalIdentityQueuePB 
  1098.    (qLink :POINTER)
  1099.    (reserved1 :SIGNED-LONG)
  1100.    (reserved2 :SIGNED-LONG)
  1101.    (ioCompletion :POINTER)
  1102.    (ioResult :SIGNED-INTEGER)
  1103.    (saveA5 :SIGNED-LONG)
  1104.    (reqCode :SIGNED-INTEGER)
  1105.    (reserved (:ARRAY :SIGNED-LONG 2))
  1106.    (serverHint :ADDRBLOCK)
  1107.    (dsRefNum :SIGNED-INTEGER)
  1108.    (callID :SIGNED-LONG)
  1109.    (identity :SIGNED-LONG)
  1110.    (gReserved1 :SIGNED-LONG)
  1111.    (gReserved2 :SIGNED-LONG)
  1112.    (gReserved3 :SIGNED-LONG)
  1113.    (clientData :SIGNED-LONG)
  1114.  
  1115.    (nofityProc :POINTER)        ;   --> notification procedure 
  1116.    )
  1117.  
  1118. ; 
  1119. ; kAuthSetupLocalIdentity:
  1120. ; The LocalIdentity can be Setup using this call.
  1121. ; The userName and password correspond to the LocalIdentity setup.
  1122. ; If a LocalIdentity Setup already exists 'kOCELocalIdentitySetupExists' error
  1123. ; will be returned.
  1124. ; 
  1125.  
  1126. (defrecord AuthSetupLocalIdentityPB 
  1127.    (qLink :POINTER)
  1128.    (reserved1 :SIGNED-LONG)
  1129.    (reserved2 :SIGNED-LONG)
  1130.    (ioCompletion :POINTER)
  1131.    (ioResult :SIGNED-INTEGER)
  1132.    (saveA5 :SIGNED-LONG)
  1133.    (reqCode :SIGNED-INTEGER)
  1134.    (reserved (:ARRAY :SIGNED-LONG 2))
  1135.    (serverHint :ADDRBLOCK)
  1136.    (dsRefNum :SIGNED-INTEGER)
  1137.    (callID :SIGNED-LONG)
  1138.    (identity :SIGNED-LONG)
  1139.    (gReserved1 :SIGNED-LONG)
  1140.    (gReserved2 :SIGNED-LONG)
  1141.    (gReserved3 :SIGNED-LONG)
  1142.    (clientData :SIGNED-LONG)
  1143.  
  1144.    (aReserved :SIGNED-LONG)     ;   --  
  1145.    (userName (:POINTER :RSTRING));   --> userName 
  1146.    (password (:POINTER :RSTRING));   -->user password 
  1147.    )
  1148.  
  1149. ; 
  1150. ; kAuthChangeLocalIdentity:
  1151. ; An existing LocalIdentity  Setup can be changed using this call.
  1152. ; The userName and password correspond to the LocalIdentity setup.
  1153. ; If a LocalIdentity Setup does not exists 'kOCELocalIdentityNotSetup' error
  1154. ; will be returned. The user can use  kAuthSetupLocalIdentity call to setit up.
  1155. ; If the 'password' does not correspond to the existing setup, 'kOCELocalAuthenticationFail'
  1156. ; OSErr will be returned. If successful, LocalID will have new name as 'userName' and
  1157. ; password as 'newPassword'.
  1158. ; 
  1159.  
  1160. (defrecord AuthChangeLocalIdentityPB 
  1161.    (qLink :POINTER)
  1162.    (reserved1 :SIGNED-LONG)
  1163.    (reserved2 :SIGNED-LONG)
  1164.    (ioCompletion :POINTER)
  1165.    (ioResult :SIGNED-INTEGER)
  1166.    (saveA5 :SIGNED-LONG)
  1167.    (reqCode :SIGNED-INTEGER)
  1168.    (reserved (:ARRAY :SIGNED-LONG 2))
  1169.    (serverHint :ADDRBLOCK)
  1170.    (dsRefNum :SIGNED-INTEGER)
  1171.    (callID :SIGNED-LONG)
  1172.    (identity :SIGNED-LONG)
  1173.    (gReserved1 :SIGNED-LONG)
  1174.    (gReserved2 :SIGNED-LONG)
  1175.    (gReserved3 :SIGNED-LONG)
  1176.    (clientData :SIGNED-LONG)
  1177.  
  1178.    (aReserved :SIGNED-LONG)     ;   --  
  1179.    (userName (:POINTER :RSTRING));   --> userName 
  1180.    (password (:POINTER :RSTRING));   --> current password 
  1181.    (newPassword (:POINTER :RSTRING));   --> new password 
  1182.    )
  1183.  
  1184. ; 
  1185. ; kAuthRemoveLocalIdentity:
  1186. ; An existing LocalIdentity  Setup can be removed using this call.
  1187. ; The userName and password correspond to the LocalIdentity setup.
  1188. ; If a LocalIdentity Setup does not exists 'kOCELocalIdentityNotSetup' error
  1189. ; will be returned.
  1190. ; If the 'password' does not correspond to the existing setup, 'kOCELocalAuthenticationFail'
  1191. ; OSErr will be returned. If successful, LocalIdentity will be removed from the OCE Setup.
  1192. ; This is a very distructive operation, user must be warned enough before actually making
  1193. ; this call.
  1194. ; 
  1195.  
  1196. (defrecord AuthRemoveLocalIdentityPB 
  1197.    (qLink :POINTER)
  1198.    (reserved1 :SIGNED-LONG)
  1199.    (reserved2 :SIGNED-LONG)
  1200.    (ioCompletion :POINTER)
  1201.    (ioResult :SIGNED-INTEGER)
  1202.    (saveA5 :SIGNED-LONG)
  1203.    (reqCode :SIGNED-INTEGER)
  1204.    (reserved (:ARRAY :SIGNED-LONG 2))
  1205.    (serverHint :ADDRBLOCK)
  1206.    (dsRefNum :SIGNED-INTEGER)
  1207.    (callID :SIGNED-LONG)
  1208.    (identity :SIGNED-LONG)
  1209.    (gReserved1 :SIGNED-LONG)
  1210.    (gReserved2 :SIGNED-LONG)
  1211.    (gReserved3 :SIGNED-LONG)
  1212.    (clientData :SIGNED-LONG)
  1213.  
  1214.    (aReserved :SIGNED-LONG)     ;   --  
  1215.    (userName (:POINTER :RSTRING));   --> userName 
  1216.    (password (:POINTER :RSTRING));   --> current password 
  1217.    )
  1218.  
  1219. ; 
  1220. ; kOCESetupAddDirectoryInfo:
  1221. ; Using this call identity for a directory can be setup under LocalIdentity umbrella.
  1222. ; ASCreateLocalIdentity should have been done succesfully before making this call.
  1223. ; directoryRecordCID -> is the record creationID obtained when DirAddOCEDirectory or
  1224. ; DirAddDSAMDirectory call was made.
  1225. ; rid-> is the recordID in which the identity for the directory will be established.
  1226. ; password-> the password associated with the rid in the directory world.
  1227. ; 
  1228.  
  1229. (defrecord OCESetupAddDirectoryInfoPB 
  1230.    (qLink :POINTER)
  1231.    (reserved1 :SIGNED-LONG)
  1232.    (reserved2 :SIGNED-LONG)
  1233.    (ioCompletion :POINTER)
  1234.    (ioResult :SIGNED-INTEGER)
  1235.    (saveA5 :SIGNED-LONG)
  1236.    (reqCode :SIGNED-INTEGER)
  1237.    (reserved (:ARRAY :SIGNED-LONG 2))
  1238.    (serverHint :ADDRBLOCK)
  1239.    (dsRefNum :SIGNED-INTEGER)
  1240.    (callID :SIGNED-LONG)
  1241.    (identity :SIGNED-LONG)
  1242.    (gReserved1 :SIGNED-LONG)
  1243.    (gReserved2 :SIGNED-LONG)
  1244.    (gReserved3 :SIGNED-LONG)
  1245.    (clientData :SIGNED-LONG)
  1246.  
  1247.    (directoryRecordCID :CREATIONID);   --> CreationID for the directory 
  1248.    (recordID (:POINTER :RECORDID));   --> recordID for the identity 
  1249.    (password (:POINTER :RSTRING));   --> password in the directory world 
  1250.    )
  1251.  
  1252. ; 
  1253. ; kOCESetupChangeDirectoryInfo:
  1254. ; Using this call an existing identity for a directory under LocalIdentity umbrella
  1255. ; can be changed.
  1256. ; ASCreateLocalIdentity should have been done succesfully before making this call.
  1257. ; directoryRecordCID -> is the record creationID obtained when DirAddOCEDirectory or
  1258. ; DirAddDSAMDirectory call was made.
  1259. ; rid-> is the recordID in which the identity for the directory will be established.
  1260. ; password-> the password associated with the rid in the directory world.
  1261. ; newPassword -> the new password for the directory
  1262. ; 
  1263.  
  1264. (defrecord OCESetupChangeDirectoryInfoPB 
  1265.    (qLink :POINTER)
  1266.    (reserved1 :SIGNED-LONG)
  1267.    (reserved2 :SIGNED-LONG)
  1268.    (ioCompletion :POINTER)
  1269.    (ioResult :SIGNED-INTEGER)
  1270.    (saveA5 :SIGNED-LONG)
  1271.    (reqCode :SIGNED-INTEGER)
  1272.    (reserved (:ARRAY :SIGNED-LONG 2))
  1273.    (serverHint :ADDRBLOCK)
  1274.    (dsRefNum :SIGNED-INTEGER)
  1275.    (callID :SIGNED-LONG)
  1276.    (identity :SIGNED-LONG)
  1277.    (gReserved1 :SIGNED-LONG)
  1278.    (gReserved2 :SIGNED-LONG)
  1279.    (gReserved3 :SIGNED-LONG)
  1280.    (clientData :SIGNED-LONG)
  1281.  
  1282.    (directoryRecordCID :CREATIONID);   --> CreationID for the directory 
  1283.    (recordID (:POINTER :RECORDID));   --> recordID for the identity 
  1284.    (password (:POINTER :RSTRING));   --> password in the directory world 
  1285.    (newPassword (:POINTER :RSTRING));   --> new password in the directory 
  1286.    )
  1287.  
  1288. ; 
  1289. ; kOCESetupRemoveDirectoryInfo:
  1290. ; Using this call an existing identity for a directory under LocalIdentity umbrella
  1291. ; can be changed.
  1292. ; ASCreateLocalIdentity should have been done succesfully before making this call.
  1293. ; directoryRecordCID -> is the record creationID obtained when DirAddOCEDirectory or
  1294. ; 
  1295.  
  1296. (defrecord OCESetupRemoveDirectoryInfoPB 
  1297.    (qLink :POINTER)
  1298.    (reserved1 :SIGNED-LONG)
  1299.    (reserved2 :SIGNED-LONG)
  1300.    (ioCompletion :POINTER)
  1301.    (ioResult :SIGNED-INTEGER)
  1302.    (saveA5 :SIGNED-LONG)
  1303.    (reqCode :SIGNED-INTEGER)
  1304.    (reserved (:ARRAY :SIGNED-LONG 2))
  1305.    (serverHint :ADDRBLOCK)
  1306.    (dsRefNum :SIGNED-INTEGER)
  1307.    (callID :SIGNED-LONG)
  1308.    (identity :SIGNED-LONG)
  1309.    (gReserved1 :SIGNED-LONG)
  1310.    (gReserved2 :SIGNED-LONG)
  1311.    (gReserved3 :SIGNED-LONG)
  1312.    (clientData :SIGNED-LONG)
  1313.  
  1314.    (directoryRecordCID :CREATIONID);   --> CreationID for the directory 
  1315.    )
  1316.  
  1317. ; 
  1318. ; kOCESetupGetDirectoryInfo:
  1319. ; Using this call info on an existing identity for a particular directory under LocalIdentity umbrella
  1320. ; can be obtained.
  1321. ; For the specified directory 'directoryName' and 'discriminator', rid and nativeName will
  1322. ; returned. Caller must provide appropriate buffer to get back rid and nativeName.
  1323. ; 'password' will be returned  for  non-ADAP Directories..
  1324. ; 
  1325.  
  1326. (defrecord OCESetupGetDirectoryInfoPB 
  1327.    (qLink :POINTER)
  1328.    (reserved1 :SIGNED-LONG)
  1329.    (reserved2 :SIGNED-LONG)
  1330.    (ioCompletion :POINTER)
  1331.    (ioResult :SIGNED-INTEGER)
  1332.    (saveA5 :SIGNED-LONG)
  1333.    (reqCode :SIGNED-INTEGER)
  1334.    (reserved (:ARRAY :SIGNED-LONG 2))
  1335.    (serverHint :ADDRBLOCK)
  1336.    (dsRefNum :SIGNED-INTEGER)
  1337.    (callID :SIGNED-LONG)
  1338.    (identity :SIGNED-LONG)
  1339.    (gReserved1 :SIGNED-LONG)
  1340.    (gReserved2 :SIGNED-LONG)
  1341.    (gReserved3 :SIGNED-LONG)
  1342.    (clientData :SIGNED-LONG)
  1343.  
  1344.    (directoryName (:POINTER :DIRECTORYNAME));   --> directory name 
  1345.    (discriminator :DIRDISCRIMINATOR);   --> discriminator for the directory 
  1346.    (recordID (:POINTER :RECORDID));  <--  rid for the directory identity 
  1347.    (nativeName (:POINTER :RSTRING));  <--  user name in the directory world 
  1348.    (password (:POINTER :RSTRING));  <--  password in the directory world 
  1349.  
  1350.    )
  1351.  
  1352. ; ****************************************************************************
  1353. ; 
  1354. ; 
  1355. ;          Directory Manager operations
  1356. ; 
  1357. ; 
  1358. ; ****************************************************************************
  1359.  
  1360. ;  AddRecord 
  1361.  
  1362. (defrecord DirAddRecordPB 
  1363.    (qLink :POINTER)
  1364.    (reserved1 :SIGNED-LONG)
  1365.    (reserved2 :SIGNED-LONG)
  1366.    (ioCompletion :POINTER)
  1367.    (ioResult :SIGNED-INTEGER)
  1368.    (saveA5 :SIGNED-LONG)
  1369.    (reqCode :SIGNED-INTEGER)
  1370.    (reserved (:ARRAY :SIGNED-LONG 2))
  1371.    (serverHint :ADDRBLOCK)
  1372.    (dsRefNum :SIGNED-INTEGER)
  1373.    (callID :SIGNED-LONG)
  1374.    (identity :SIGNED-LONG)
  1375.    (gReserved1 :SIGNED-LONG)
  1376.    (gReserved2 :SIGNED-LONG)
  1377.    (gReserved3 :SIGNED-LONG)
  1378.    (clientData :SIGNED-LONG)
  1379.  
  1380.    (aRecord (:POINTER :RECORDID));   --> CreationID returned here 
  1381.    (allowDuplicate :BOOLEAN)    ;   --> 
  1382.    )
  1383.  
  1384. ;  DeleteRecord 
  1385.  
  1386. (defrecord DirDeleteRecordPB 
  1387.    (qLink :POINTER)
  1388.    (reserved1 :SIGNED-LONG)
  1389.    (reserved2 :SIGNED-LONG)
  1390.    (ioCompletion :POINTER)
  1391.    (ioResult :SIGNED-INTEGER)
  1392.    (saveA5 :SIGNED-LONG)
  1393.    (reqCode :SIGNED-INTEGER)
  1394.    (reserved (:ARRAY :SIGNED-LONG 2))
  1395.    (serverHint :ADDRBLOCK)
  1396.    (dsRefNum :SIGNED-INTEGER)
  1397.    (callID :SIGNED-LONG)
  1398.    (identity :SIGNED-LONG)
  1399.    (gReserved1 :SIGNED-LONG)
  1400.    (gReserved2 :SIGNED-LONG)
  1401.    (gReserved3 :SIGNED-LONG)
  1402.    (clientData :SIGNED-LONG)
  1403.  
  1404.    (aRecord (:POINTER :RECORDID));   --> 
  1405.    )
  1406.  
  1407. ;  aRecord must contain valid PackedRLI and a CreationID. 
  1408.  
  1409. ; ********************************************************************************
  1410. ; 
  1411. ; DirEnumerate:
  1412. ; This call can be used to enumerate both DNodes and records under a specified
  1413. ; DNode. A DNode is specified by the PackedRLIPtr 'aRLI'.
  1414. ; 
  1415. ; startingPoint indicates where to start the enumeration.  Initially,
  1416. ; it should be set to a value of nil.  After some records are enumerated,
  1417. ; the client can issue the call again with the same aRLI and recordName and
  1418. ; typeList. The last received DirEnumSpec in the startingPoint field.  The server
  1419. ; will continue the enumeration from that record on. if user wants to get back the
  1420. ; value specified in the startingRecord also, the BOOLEAN 'includeStartingPoint'
  1421. ; must be set to 'true'. If this is set to 'false', records specified after the
  1422. ; startingPoint record will be returned.
  1423. ; 
  1424. ; sortBy indicates to the server to return the records that match in name-first
  1425. ; or type-first order.  sortDirection indicates to the server to search in forward
  1426. ; or backward sort order for RecordIDs Specified.
  1427. ; 
  1428. ; RecordIDS and Enumeration Criteria:
  1429. ; 
  1430. ; PackedRLIPtr parameter 'aRLI' will be accepted for DNode
  1431. ; specification.
  1432. ; 
  1433. ; One RStringPtr 'recordName' is provided. User is allowed to
  1434. ; specify a wild card in the name.
  1435. ; 
  1436. ; 'typeCount' parameter indicate how many types are in the 'typeList'.
  1437. ; 
  1438. ; 'typeList' parmeter is a pointer to an RString array of size 'typeCount'.
  1439. ; 
  1440. ; If 'typeCount' is exactly equal to one, a wild card can be specified
  1441. ; for the entity type; otherwise types have to be completely specified.
  1442. ; 
  1443. ; A nil value for 'startingPoint' is allowed when sortDirection specified
  1444. ; is 'kSortBackwards'. This was not allowed previously.
  1445. ; 
  1446. ; 'enumFlags' parameter is a bit field. The following bits can be set:
  1447. ;     kEnumDistinguishedNameMask to get back records in the cluster data base.
  1448. ;     kEnumAliasMask to get back record aliases
  1449. ;     kEnumPseudonymMask to get back record pseudonyms
  1450. ;     kEnumDNodeMask to get back any children dNodes for the DNode specified in the
  1451. ;     'aRLI' parameter.
  1452. ;     kEnumAll is combination of all four values and can be used to enumerate
  1453. ;     everything under a specified DNode.
  1454. ; 
  1455. ; 'requestScriptCode' is input parameter and should be ignored in the Release 1.0
  1456. ; by all directories (including DSAM directories). However clients are advised to
  1457. ; set this to desired valid script code for future compatibility.
  1458. ; 
  1459. ; 'responseScriptCode' is  output parameter and this will be set when
  1460. ; DirEnumerateGet call completes successfully (includes kOCEMoreData error case).
  1461. ; If the 'responseScriptCode' is one of the defined script codes, it indicates
  1462. ; that entries are sorted in that script code. This value need not be equal to
  1463. ; the 'requsetScriptCode'. If the value returned is smInvalidScript, then the
  1464. ; sort order returned can be determined by the feature flags for that directory.
  1465. ; This may indicate entries may be sorted in some order or not sorted in any
  1466. ; particular order.
  1467. ; 
  1468. ; 
  1469. ; The results returned for each element will consist of a DirEnumSpec.
  1470. ; The DirEnumSpec contains 'enumFlag' which indicates the type of entity and a
  1471. ; union which will have either DNodeID or LocalRecordID depending on the value of 'enumFlag'.
  1472. ; The 'enumFlag'  will indicate whether the returned element is a
  1473. ; record(bit: kEnumDistinguishedNameMask) or a alias(bit: kEnumAliasMask) or a
  1474. ; Pseudonym(kEnumPseudonymMask) or a child DNode(bit: kEnumChildMask).  If the 'enumFlag' value
  1475. ; is kEnumChildMask, it indicates the value returned in the union is a DNodeID (i.e. 'dNodeNumber'
  1476. ; is the 'dNodeNumber' of the child dnode(if the directory supports dNodeNumbers, otherwise
  1477. ; this will be set to zero). The name will be the child dnode name. For other values of the
  1478. ; 'enumFlag', the value in the union will be LocalRecordID.
  1479. ; 
  1480. ; 
  1481. ; The results will be collected in the 'getBuffer' supplied by the user.
  1482. ; If buffer can not hold all the data returned 'kOCEMoreData' error will be returned.
  1483. ; 
  1484. ; If user receives 'noErr' or 'kOCEMoreData', buffer will contain valid results. A user
  1485. ; can extract the results in the 'getBuffer' by making DirEnumerateParse' call.
  1486. ; 
  1487.  
  1488. (defrecord DirEnumerateGetPB 
  1489.    (qLink :POINTER)
  1490.    (reserved1 :SIGNED-LONG)
  1491.    (reserved2 :SIGNED-LONG)
  1492.    (ioCompletion :POINTER)
  1493.    (ioResult :SIGNED-INTEGER)
  1494.    (saveA5 :SIGNED-LONG)
  1495.    (reqCode :SIGNED-INTEGER)
  1496.    (reserved (:ARRAY :SIGNED-LONG 2))
  1497.    (serverHint :ADDRBLOCK)
  1498.    (dsRefNum :SIGNED-INTEGER)
  1499.    (callID :SIGNED-LONG)
  1500.    (identity :SIGNED-LONG)
  1501.    (gReserved1 :SIGNED-LONG)
  1502.    (gReserved2 :SIGNED-LONG)
  1503.    (gReserved3 :SIGNED-LONG)
  1504.    (clientData :SIGNED-LONG)
  1505.  
  1506.    (aRLI (:POINTER :PACKEDRLI)) ;   --> an RLI specifying the cluster to be enumerated 
  1507.    (startingPoint (:POINTER :DIRENUMSPEC));   --> 
  1508.    (sortBy :SIGNED-INTEGER)     ;   --> 
  1509.    (sortDirection :SIGNED-INTEGER);   --> 
  1510.    (dReserved :SIGNED-LONG)     ;   --  
  1511.    (nameMatchString (:POINTER :RSTRING));   --> name from which enumeration should start 
  1512.    (typesList (:HANDLE :RSTRING));   --> list of entity types to be enumerated 
  1513.    (typeCount :SIGNED-LONG)     ;   --> number of types in the list 
  1514.    (enumFlags :SIGNED-LONG)     ;   --> indicates what to enumerate 
  1515.  
  1516. ; ERROR!! Record field INCLUDESTARTINGPOINT declared PACKED BOOLEAN !
  1517.    (includeStartingPoint :BOOLEAN);   --> if true return the record specified in starting point 
  1518.    (padByte :UNSIGNED-BYTE)
  1519.    (matchNameHow :UNSIGNED-BYTE);   --> Matching Criteria for nameMatchString 
  1520.    (matchTypeHow :UNSIGNED-BYTE);   --> Matching Criteria for typeList 
  1521.    (getBuffer :POINTER)         ;   --> 
  1522.    (getBufferSize :SIGNED-LONG) ;   --> 
  1523.    (responseSLRV :SLRV)         ;   <-- response SLRV 
  1524.    )
  1525.  
  1526. ;  The EnumerateRecords call-back function is defined as follows: 
  1527. (def-mactype :FOREACHDIRENUMSPEC (find-mactype :POINTER))
  1528. ;  FUNCTION ForEachDirEnumSpec(
  1529. ;         clientData: LONGINT; enumSpec: DirEnumSpec): BOOLEAN;
  1530.  
  1531. ; 
  1532. ; EnumerateParse:
  1533. ; After an EnumerateGet call has completed, call EnumerateParse
  1534. ; to parse through the buffer that was filled in EnumerateGet.
  1535. ; 
  1536. ; 'eachEnumSpec' will be called each time to return to the client a
  1537. ; DirEnumSpec that matches the pattern for enumeration. 'enumFlag' indicates the type
  1538. ; of information returned in the DirEnumSpec
  1539. ; The clientData parameter that you pass in the parameter block will be passed
  1540. ; to 'forEachEnumDSSpecFunc'.  You are free to put anything in clientData - it is intended
  1541. ; to allow you some way to match the call-back to the original call (example: for; you make more then one aysynchronous EnumerateGet calls and you want to
  1542. ; associate returned results in some way).
  1543. ; 
  1544. ; The client should return FALSE from 'eachEnumSpec' to continue
  1545. ; processing of the EnumerateParse request.  Returning TRUE will
  1546. ; terminate the EnumerateParse request.
  1547. ; 
  1548. ; For synchronous calls, the call-back routine actually runs as part of the same thread
  1549. ; of execution as the thread that made the EnumerateParse call.  That means that the
  1550. ; same low-memory globals, A5, stack, etc. are in effect during the call-back
  1551. ; that were in effect when the call was made.  Because of this, the call-back
  1552. ; routine has the same restrictions as the caller of EnumerateParse:
  1553. ; if EnumerateParse was not called from interrupt level, then the call-
  1554. ; back routine can allocate memory. For asynchronous calls, call-back routine is
  1555. ; like a ioCompletion except that A5 will be preserved for the application.
  1556. ; 
  1557.  
  1558. (defrecord DirEnumerateParsePB 
  1559.    (qLink :POINTER)
  1560.    (reserved1 :SIGNED-LONG)
  1561.    (reserved2 :SIGNED-LONG)
  1562.    (ioCompletion :POINTER)
  1563.    (ioResult :SIGNED-INTEGER)
  1564.    (saveA5 :SIGNED-LONG)
  1565.    (reqCode :SIGNED-INTEGER)
  1566.    (reserved (:ARRAY :SIGNED-LONG 2))
  1567.    (serverHint :ADDRBLOCK)
  1568.    (dsRefNum :SIGNED-INTEGER)
  1569.    (callID :SIGNED-LONG)
  1570.    (identity :SIGNED-LONG)
  1571.    (gReserved1 :SIGNED-LONG)
  1572.    (gReserved2 :SIGNED-LONG)
  1573.    (gReserved3 :SIGNED-LONG)
  1574.    (clientData :SIGNED-LONG)
  1575.  
  1576.    (aRLI (:POINTER :PACKEDRLI)) ;   --> an RLI specifying the cluster to be enumerated 
  1577.    (bReserved :SIGNED-LONG)     ;   --  
  1578.    (cReserved :SIGNED-LONG)     ;   --  
  1579.    (eachEnumSpec :POINTER)      ;   --> 
  1580.    (eReserved :SIGNED-LONG)     ;   --  
  1581.    (fReserved :SIGNED-LONG)     ;   --  
  1582.    (gReserved :SIGNED-LONG)     ;   --  
  1583.    (hReserved :SIGNED-LONG)     ;   --  
  1584.    (iReserved :SIGNED-LONG)     ;   --  
  1585.    (getBuffer :POINTER)         ;   --> 
  1586.    (getBufferSize :SIGNED-LONG) ;   --> 
  1587.    (l1Reserved :SIGNED-INTEGER) ;   --  
  1588.    (l2Reserved :SIGNED-INTEGER) ;   --  
  1589.    (l3Reserved :SIGNED-INTEGER) ;   --  
  1590.    (l4Reserved :SIGNED-INTEGER) ;   --  
  1591.    )
  1592.  
  1593. ; 
  1594. ;  FindRecordGet operates similarly to DirEnumerate except it returns a list
  1595. ;  of records instead of records local to a cluster.
  1596. ; 
  1597.  
  1598. (defrecord DirFindRecordGetPB 
  1599.    (qLink :POINTER)
  1600.    (reserved1 :SIGNED-LONG)
  1601.    (reserved2 :SIGNED-LONG)
  1602.    (ioCompletion :POINTER)
  1603.    (ioResult :SIGNED-INTEGER)
  1604.    (saveA5 :SIGNED-LONG)
  1605.    (reqCode :SIGNED-INTEGER)
  1606.    (reserved (:ARRAY :SIGNED-LONG 2))
  1607.    (serverHint :ADDRBLOCK)
  1608.    (dsRefNum :SIGNED-INTEGER)
  1609.    (callID :SIGNED-LONG)
  1610.    (identity :SIGNED-LONG)
  1611.    (gReserved1 :SIGNED-LONG)
  1612.    (gReserved2 :SIGNED-LONG)
  1613.    (gReserved3 :SIGNED-LONG)
  1614.    (clientData :SIGNED-LONG)
  1615.  
  1616.    (startingPoint (:POINTER :RECORDID))
  1617.    (reservedA (:ARRAY :SIGNED-LONG 2))
  1618.    (nameMatchString (:POINTER :RSTRING))
  1619.    (typesList (:HANDLE :RSTRING))
  1620.    (typeCount :SIGNED-LONG)
  1621.    (reservedB :SIGNED-LONG)
  1622.    (reservedC :SIGNED-INTEGER)
  1623.  
  1624. ; ERROR!! Record field MATCHNAMEHOW declared Non-PACKED BYTE !
  1625.    (matchNameHow :UNSIGNED-BYTE)
  1626.  
  1627. ; ERROR!! Record field MATCHTYPEHOW declared Non-PACKED BYTE !
  1628.    (matchTypeHow :UNSIGNED-BYTE)
  1629.    (getBuffer :POINTER)
  1630.    (getBufferSize :SIGNED-LONG)
  1631.    (directoryName (:POINTER :DIRECTORYNAME))
  1632.    (discriminator :DIRDISCRIMINATOR)
  1633.    )
  1634.  
  1635. ;  The FindRecordParse call-back function is defined as follows: 
  1636. (def-mactype :FOREACHRECORD (find-mactype :POINTER))
  1637. ;  FUNCTION ForEachRecord(clientData: LONGINT; enumSpec: DirEnumSpec;
  1638. ;                              pRLI: PackedRLIPtr): BOOLEAN; 
  1639.  
  1640. ; 
  1641. ;  This PB same as DirFindRecordGet except it includes the callback function
  1642. ; 
  1643.  
  1644. (defrecord DirFindRecordParsePB 
  1645.    (qLink :POINTER)
  1646.    (reserved1 :SIGNED-LONG)
  1647.    (reserved2 :SIGNED-LONG)
  1648.    (ioCompletion :POINTER)
  1649.    (ioResult :SIGNED-INTEGER)
  1650.    (saveA5 :SIGNED-LONG)
  1651.    (reqCode :SIGNED-INTEGER)
  1652.    (reserved (:ARRAY :SIGNED-LONG 2))
  1653.    (serverHint :ADDRBLOCK)
  1654.    (dsRefNum :SIGNED-INTEGER)
  1655.    (callID :SIGNED-LONG)
  1656.    (identity :SIGNED-LONG)
  1657.    (gReserved1 :SIGNED-LONG)
  1658.    (gReserved2 :SIGNED-LONG)
  1659.    (gReserved3 :SIGNED-LONG)
  1660.    (clientData :SIGNED-LONG)
  1661.  
  1662.    (startingPoint (:POINTER :RECORDID))
  1663.    (reservedA (:ARRAY :SIGNED-LONG 2))
  1664.    (nameMatchString (:POINTER :RSTRING))
  1665.    (typesList (:HANDLE :RSTRING))
  1666.    (typeCount :SIGNED-LONG)
  1667.    (reservedB :SIGNED-LONG)
  1668.    (reservedC :SIGNED-INTEGER)
  1669.  
  1670. ; ERROR!! Record field MATCHNAMEHOW declared Non-PACKED BYTE !
  1671.    (matchNameHow :UNSIGNED-BYTE)
  1672.  
  1673. ; ERROR!! Record field MATCHTYPEHOW declared Non-PACKED BYTE !
  1674.    (matchTypeHow :UNSIGNED-BYTE)
  1675.    (getBuffer :POINTER)
  1676.    (getBufferSize :SIGNED-LONG)
  1677.    (directoryName (:POINTER :DIRECTORYNAME))
  1678.    (discriminator :DIRDISCRIMINATOR)
  1679.    (forEachRecordFunc :POINTER)
  1680.    )
  1681.  
  1682. ; 
  1683. ; LookupGet:
  1684. ; 
  1685. ; aRecordList is an array of pointers to RecordIDs, each of which must
  1686. ; contain valid PackedRLI and a CreationID.  recordIDCount is
  1687. ; the size of this array.
  1688. ; 
  1689. ; attrTypeList is an array of pointers to AttributeTypes.  attrTypeCount is
  1690. ; the size of this array.
  1691. ; 
  1692. ; staringRecordIndex is the record from which to continue the lookup.
  1693. ; If you want to start from first record in the list, this must be 1 (zero: not).
  1694. ; This value must always be <= recordIDCount.
  1695. ; 
  1696. ; startingAttributeIndex is the AttributeType from which we want to continue the lookup.
  1697. ; If you want to start from first attribute in the list, this must be 1 (zero: not).
  1698. ; This value must always be <= attrTypeCount.
  1699. ; 
  1700. ; startingAttribute is the value of the attribute value from which we want to
  1701. ; continue lookup. In case of directories supporting creationIDs, startingAttribute
  1702. ; may contain only a CID. Other directories may require the entire value.
  1703. ; If a non-null cid is given and if an attribute value with that cid is not found, this
  1704. ; call will terminate with kOCENoSuchAttribute error. A client should not make a LookupParse call
  1705. ; after getting this error.
  1706. ; 
  1707. ; 'includeStartingPoint' BOOLEAN can be set to 'true' to receive the value specified in the
  1708. ; startingPoint in the results returned. If this is set to 'false', the value
  1709. ; specified in the startingAttribute will not be returned.
  1710. ; 
  1711. ; When LookupGet call fails with kOCEMoreData, the client will be able to find out where the call ended
  1712. ; with a subsequent LookupParse call. When the LookupParse call completes with kOCEMoreData,
  1713. ; lastRecordIndex, lastAttributeIndex and lastValueCID will point to the corresponding
  1714. ; recordID, attributeType and the CreationID of the last value returned successfully. These parameters
  1715. ; are exactly the same ones for the startingRecordIndex, startingAttributeIndex, and startingAttrValueCID
  1716. ; so they can be used in a subsequent LookupGet call to continue the lookup.
  1717. ; 
  1718. ; In an extreme case, It is possible that we had an attribute value that is too large to fit
  1719. ; in the client's buffer. In such cases, if it was the only thing that we tried to fit
  1720. ; into the buffer, the client will not able to proceed further because he will not know the
  1721. ; attributeCID of the attribute to continue with.  Also he does not know how big a buffer
  1722. ; would be needed for the next call to get this 'mondo' attribute value successfully.
  1723. ; 
  1724. ; to support this, LookupParse call will do the following:
  1725. ; 
  1726. ; If LookupGet has failed with kOCEMoreData error, LookupParse will check to make sure that
  1727. ; ForEachAttributeValueFunc has been called at least once. If so, the client has the option
  1728. ; to continue from that attribute CreationID (for PAB/ADAP) in the next LookupGet call.
  1729. ; However, if it was not even called once, then the attribute value may be too big to fit in the
  1730. ; user's buffer. In this case, lastAttrValueCID (lastAttribute) and attrSize are returned in the
  1731. ; parse buffer and the call will fail with kOCEMoreAttrValue. However, it is possible that
  1732. ; ForEachAttributeValue was not called because the user does not have read access to some of
  1733. ; the attributeTypes in the list, and the buffer was full before even reading the creationID of
  1734. ; any of the attribute values.  A kOCEMoreData error is returned.
  1735. ; 
  1736. ; The Toolbox will check for duplicate RecordIDs in the aRecordList. If found, it will return
  1737. ; 'daDuplicateRecordIDErr'.
  1738. ; 
  1739. ; The Toolbox will check for duplicate AttributeTypes in the attrTypeList. If found it will
  1740. ; return 'daDuplicateAttrTypeErr'.
  1741. ; 
  1742.  
  1743. (defrecord DirLookupGetPB 
  1744.    (qLink :POINTER)
  1745.    (reserved1 :SIGNED-LONG)
  1746.    (reserved2 :SIGNED-LONG)
  1747.    (ioCompletion :POINTER)
  1748.    (ioResult :SIGNED-INTEGER)
  1749.    (saveA5 :SIGNED-LONG)
  1750.    (reqCode :SIGNED-INTEGER)
  1751.    (reserved (:ARRAY :SIGNED-LONG 2))
  1752.    (serverHint :ADDRBLOCK)
  1753.    (dsRefNum :SIGNED-INTEGER)
  1754.    (callID :SIGNED-LONG)
  1755.    (identity :SIGNED-LONG)
  1756.    (gReserved1 :SIGNED-LONG)
  1757.    (gReserved2 :SIGNED-LONG)
  1758.    (gReserved3 :SIGNED-LONG)
  1759.    (clientData :SIGNED-LONG)
  1760.  
  1761.    (aRecordList (:HANDLE :RECORDID));   --> an array of RecordID pointers 
  1762.    (attrTypeList (:HANDLE :ATTRIBUTETYPE));   --> an array of attribute types 
  1763.    (cReserved :SIGNED-LONG)     ;   --  
  1764.    (dReserved :SIGNED-LONG)     ;   --  
  1765.    (eReserved :SIGNED-LONG)     ;   --  
  1766.    (fReserved :SIGNED-LONG)     ;   --  
  1767.    (recordIDCount :SIGNED-LONG) ;   --> 
  1768.    (attrTypeCount :SIGNED-LONG) ;   --> 
  1769.    (includeStartingPoint :BOOLEAN);   --> if true return the value specified by the starting indices 
  1770. ;     padByte: Byte;    
  1771.    (i1Reserved :SIGNED-INTEGER) ;   --  
  1772.    (getBuffer :POINTER)         ;   --> 
  1773.    (getBufferSize :SIGNED-LONG) ;   --> 
  1774.    (startingRecordIndex :SIGNED-LONG);   --> start from this record 
  1775.    (startingAttrTypeIndex :SIGNED-LONG);   --> start from this attribute type 
  1776.    (startingAttribute :ATTRIBUTE);   --> start from this attribute value 
  1777.    (pReserved :SIGNED-LONG)     ;   --  
  1778.    )
  1779.  
  1780. ;  The Lookup call-back functions are defined as follows: 
  1781.  
  1782. (def-mactype :FOREACHLOOKUPRECORDID (find-mactype :POINTER));  FUNCTION ForEachLookupRecordID(clientData: long; recordID: RecordID): BOOLEAN;
  1783. (def-mactype :FOREACHATTRTYPELOOKUP (find-mactype :POINTER));  FUNCTION ForEachAttrTypeLookup(clientData: long; attrType: AttributeTypePtr; myAttrAccMask: AccessMask): BOOLEAN;
  1784. (def-mactype :FOREACHATTRVALUE (find-mactype :POINTER));  FUNCTION ForEachAttrValue(clientData: long; attribute: Attribute): BOOLEAN;
  1785.  
  1786. ; 
  1787. ; LookupParse:
  1788. ; 
  1789. ; After a LookupGet call has completed, call LookupParse
  1790. ; to parse through the buffer that was filled in LookupGet.  The
  1791. ; toolbox will parse through the buffer and call the appropriate call-back routines
  1792. ; for each item in the getBuffer.
  1793. ; 
  1794. ; 'eachRecordID' will be called each time to return to the client one of the
  1795. ; RecordIDs from aRecordList.  The clientData parameter that you
  1796. ; pass in the parameter block will be passed to eachRecordID.
  1797. ; You are free to put anything in clientData - it is intended to allow
  1798. ; you some way to match the call-back to the original call (case: in; example: for; you make simultaneous asynchronous LookupGet calls).  If you don't
  1799. ; want to get a call-back for each RecordID (example: for; if you're looking up
  1800. ; attributes for only one RecordID), pass nil for eachRecordID.
  1801. ; 
  1802. ; After forEachLocalRecordIDFunc is called, eachAttrType may be called to pass an
  1803. ; attribute type (one from attrTypeList) that exists in the record specified
  1804. ; in the last eachRecordID call.  If you don't want to get a call-back for
  1805. ; each AttributeType (example: for; if you're looking up only one attribute type,
  1806. ; or you prefer to read the type from the Attribute struct during the eachAttrValue
  1807. ; call-back routine), pass nil for eachAttrType. However access controls may
  1808. ; prohibit you from reading some attribute types; in that case eachAttrValue
  1809. ; may not be called even though the value exists. Hence the client should
  1810. ; supply this call-back function to see the access controls for each attribute type.
  1811. ; 
  1812. ; This will be followed by one or more calls to eachAttrValue, to pass the
  1813. ; type, tag, and attribute value.  NOTE THIS CHANGE:  you are no longer expected to
  1814. ; pass a pointer to a buffer in which to put the value.  Now you get a pointer to
  1815. ; the value, and you can process it within the call-back routine.
  1816. ; After one or more values are returned, eachAttrType may be called again to pass
  1817. ; another attribute type that exists in the last-specified RecordID.
  1818. ; 
  1819. ; The client should return FALSE from eachRecordID, eachAttrType, and
  1820. ; eachAttrValue to continue processing of the LookupParse request.  Returning TRUE
  1821. ; from any call-back will terminate the LookupParse request.
  1822. ; 
  1823. ; If LookupGet has failed with kOCEMoreData error, LookupParse will check to make sure that
  1824. ; ForEachAttributeValueFunc has been called at least once. If so, the client has the option
  1825. ; to continue from that attribute CreationID (for PAB/ADAP) in the next LookupGet call.
  1826. ; However, if it was not even called once, then the attribute value may be too big to fit in the
  1827. ; user's buffer. In this case, lastAttrValueCID (lastAttribute) and attrSize are returned in the
  1828. ; parse buffer and the call will fail with kOCEMoreAttrValue. However, it is possible that
  1829. ; ForEachAttributeValue was not called because the user does not have read access to some of
  1830. ; the attributeTypes in the list, and the buffer was full before even reading the creationID of
  1831. ; any of the attribute values.  A kOCEMoreData error is returned.
  1832. ; 
  1833. ; For synchronous calls, the call-back routine actually runs as part of the same thread
  1834. ; of execution as the thread that made the LookupParse call.  That means that the
  1835. ; same low-memory globals, A5, stack, etc. are in effect during the call-back
  1836. ; that were in effect when the call was made.  Because of this, the call-back
  1837. ; routine has the same restrictions as the caller of LookupParse:
  1838. ; if LookupParse was not called from interrupt level, then the call-
  1839. ; back routine can allocate memory. For asynchronous calls, call-back routine is
  1840. ; like a ioCompletion except that A5 will be preserved for the application.
  1841. ; 
  1842.  
  1843. (defrecord DirLookupParsePB 
  1844.    (qLink :POINTER)
  1845.    (reserved1 :SIGNED-LONG)
  1846.    (reserved2 :SIGNED-LONG)
  1847.    (ioCompletion :POINTER)
  1848.    (ioResult :SIGNED-INTEGER)
  1849.    (saveA5 :SIGNED-LONG)
  1850.    (reqCode :SIGNED-INTEGER)
  1851.    (reserved (:ARRAY :SIGNED-LONG 2))
  1852.    (serverHint :ADDRBLOCK)
  1853.    (dsRefNum :SIGNED-INTEGER)
  1854.    (callID :SIGNED-LONG)
  1855.    (identity :SIGNED-LONG)
  1856.    (gReserved1 :SIGNED-LONG)
  1857.    (gReserved2 :SIGNED-LONG)
  1858.    (gReserved3 :SIGNED-LONG)
  1859.    (clientData :SIGNED-LONG)
  1860.  
  1861.    (aRecordList (:HANDLE :RECORDID));   --> must be same from the corresponding Get call 
  1862.    (attrTypeList (:HANDLE :ATTRIBUTETYPE));   --> must be same from the corresponding Get call 
  1863.    (cReserved :SIGNED-LONG)     ;   --  
  1864.    (eachRecordID :POINTER)      ;   --> 
  1865.    (eachAttrType :POINTER)      ;   --> 
  1866.    (eachAttrValue :POINTER)     ;   --> 
  1867.    (recordIDCount :SIGNED-LONG) ;   --> must be same from the corresponding Get call 
  1868.    (attrTypeCount :SIGNED-LONG) ;   --> must be same from the corresponding Get call 
  1869.    (iReserved :SIGNED-LONG)     ;   --  
  1870.    (getBuffer :POINTER)         ;   --> must be same from the corresponding Get call
  1871.    (getBufferSize :SIGNED-LONG) ;   --> must be same from the corresponding Get call
  1872.    (lastRecordIndex :SIGNED-LONG);  <--  last RecordID processed when parse completed 
  1873.    (lastAttributeIndex :SIGNED-LONG);  <--  last Attribute Type processed when parse completed 
  1874.    (lastAttribute :ATTRIBUTE)   ;  <--  last attribute value (with this CreationID) processed when parse completed 
  1875.    (attrSize :SIGNED-LONG)      ;  <--  length of the attribute we did not return 
  1876.    )
  1877.  
  1878. ;  AddAttributeValue 
  1879.  
  1880. (defrecord DirAddAttributeValuePB 
  1881.    (qLink :POINTER)
  1882.    (reserved1 :SIGNED-LONG)
  1883.    (reserved2 :SIGNED-LONG)
  1884.    (ioCompletion :POINTER)
  1885.    (ioResult :SIGNED-INTEGER)
  1886.    (saveA5 :SIGNED-LONG)
  1887.    (reqCode :SIGNED-INTEGER)
  1888.    (reserved (:ARRAY :SIGNED-LONG 2))
  1889.    (serverHint :ADDRBLOCK)
  1890.    (dsRefNum :SIGNED-INTEGER)
  1891.    (callID :SIGNED-LONG)
  1892.    (identity :SIGNED-LONG)
  1893.    (gReserved1 :SIGNED-LONG)
  1894.    (gReserved2 :SIGNED-LONG)
  1895.    (gReserved3 :SIGNED-LONG)
  1896.    (clientData :SIGNED-LONG)
  1897.  
  1898.    (aRecord (:POINTER :RECORDID));   --> 
  1899.    (attr (:POINTER :ATTRIBUTE)) ;   --> AttributeCreationID returned here 
  1900.    )
  1901.  
  1902. ; 
  1903. ; aRecord must contain valid PackedRLI and a CreationID.
  1904. ; 
  1905. ; Instead of passing type, length, and value in three separate
  1906. ; fields, we take a pointer to an Attribute structure that contains
  1907. ; all three, and has room for the AttributeCreationNumber.
  1908. ; The AttributeCreationID will be returned in the attr itself.
  1909. ; 
  1910. ; The AttributeTag tells the directory service that the attribute is an RString,
  1911. ; binary, or a RecordID.
  1912. ; 
  1913.  
  1914. ; 
  1915. ; DeleteAttributeType:
  1916. ; This call is provided so that an existing AttributeType can be deleted.
  1917. ; If any attribute values exist for this type, they will all be deleted
  1918. ; (if the user has access rights to delete the values) and then the attribute type
  1919. ; will be deleted. Otherwise dsAccessDenied error will be returned.
  1920. ; 
  1921.  
  1922. (defrecord DirDeleteAttributeTypePB 
  1923.    (qLink :POINTER)
  1924.    (reserved1 :SIGNED-LONG)
  1925.    (reserved2 :SIGNED-LONG)
  1926.    (ioCompletion :POINTER)
  1927.    (ioResult :SIGNED-INTEGER)
  1928.    (saveA5 :SIGNED-LONG)
  1929.    (reqCode :SIGNED-INTEGER)
  1930.    (reserved (:ARRAY :SIGNED-LONG 2))
  1931.    (serverHint :ADDRBLOCK)
  1932.    (dsRefNum :SIGNED-INTEGER)
  1933.    (callID :SIGNED-LONG)
  1934.    (identity :SIGNED-LONG)
  1935.    (gReserved1 :SIGNED-LONG)
  1936.    (gReserved2 :SIGNED-LONG)
  1937.    (gReserved3 :SIGNED-LONG)
  1938.    (clientData :SIGNED-LONG)
  1939.  
  1940.    (aRecord (:POINTER :RECORDID));   --> 
  1941.    (attrType (:POINTER :ATTRIBUTETYPE));   --> 
  1942.    )
  1943.  
  1944. ; 
  1945. ;     DeleteAttributeValue
  1946. ; 
  1947. (defrecord DirDeleteAttributeValuePB 
  1948.    (qLink :POINTER)
  1949.    (reserved1 :SIGNED-LONG)
  1950.    (reserved2 :SIGNED-LONG)
  1951.    (ioCompletion :POINTER)
  1952.    (ioResult :SIGNED-INTEGER)
  1953.    (saveA5 :SIGNED-LONG)
  1954.    (reqCode :SIGNED-INTEGER)
  1955.    (reserved (:ARRAY :SIGNED-LONG 2))
  1956.    (serverHint :ADDRBLOCK)
  1957.    (dsRefNum :SIGNED-INTEGER)
  1958.    (callID :SIGNED-LONG)
  1959.    (identity :SIGNED-LONG)
  1960.    (gReserved1 :SIGNED-LONG)
  1961.    (gReserved2 :SIGNED-LONG)
  1962.    (gReserved3 :SIGNED-LONG)
  1963.    (clientData :SIGNED-LONG)
  1964.  
  1965.    (aRecord (:POINTER :RECORDID));   -> 
  1966.    (attr (:POINTER :ATTRIBUTE)) ;   -> 
  1967.    )
  1968.  
  1969. ; 
  1970. ;     ChangeAttributeValue:
  1971. ;     currentAttr ==> the attribute to be changed. For ADAS and PAB CreationID is
  1972. ;                     sufficient
  1973. ;     newAttr     ==> new value for the attribute. For ADAS and PAB
  1974. ;                     CreationID field will be set when
  1975. ;                     the call succeesfully completes
  1976. ; 
  1977. ;     aRecord     ==> must contain valid PackedRecordLocationInfo and a CreationID.
  1978. ; 
  1979.  
  1980. (defrecord DirChangeAttributeValuePB 
  1981.    (qLink :POINTER)
  1982.    (reserved1 :SIGNED-LONG)
  1983.    (reserved2 :SIGNED-LONG)
  1984.    (ioCompletion :POINTER)
  1985.    (ioResult :SIGNED-INTEGER)
  1986.    (saveA5 :SIGNED-LONG)
  1987.    (reqCode :SIGNED-INTEGER)
  1988.    (reserved (:ARRAY :SIGNED-LONG 2))
  1989.    (serverHint :ADDRBLOCK)
  1990.    (dsRefNum :SIGNED-INTEGER)
  1991.    (callID :SIGNED-LONG)
  1992.    (identity :SIGNED-LONG)
  1993.    (gReserved1 :SIGNED-LONG)
  1994.    (gReserved2 :SIGNED-LONG)
  1995.    (gReserved3 :SIGNED-LONG)
  1996.    (clientData :SIGNED-LONG)
  1997.  
  1998.    (aRecord (:POINTER :RECORDID));   -> 
  1999.    (currentAttr (:POINTER :ATTRIBUTE));   -> 
  2000.    (newAttr (:POINTER :ATTRIBUTE));   -> 
  2001.    )
  2002.  
  2003. ;  VerifyAttributeValue 
  2004.  
  2005. (defrecord DirVerifyAttributeValuePB 
  2006.    (qLink :POINTER)
  2007.    (reserved1 :SIGNED-LONG)
  2008.    (reserved2 :SIGNED-LONG)
  2009.    (ioCompletion :POINTER)
  2010.    (ioResult :SIGNED-INTEGER)
  2011.    (saveA5 :SIGNED-LONG)
  2012.    (reqCode :SIGNED-INTEGER)
  2013.    (reserved (:ARRAY :SIGNED-LONG 2))
  2014.    (serverHint :ADDRBLOCK)
  2015.    (dsRefNum :SIGNED-INTEGER)
  2016.    (callID :SIGNED-LONG)
  2017.    (identity :SIGNED-LONG)
  2018.    (gReserved1 :SIGNED-LONG)
  2019.    (gReserved2 :SIGNED-LONG)
  2020.    (gReserved3 :SIGNED-LONG)
  2021.    (clientData :SIGNED-LONG)
  2022.  
  2023.    (aRecord (:POINTER :RECORDID));   --> 
  2024.    (attr (:POINTER :ATTRIBUTE)) ;   --> 
  2025.    )
  2026.  
  2027. ; 
  2028. ; aRecord must contain valid PackedRLI and a CreationID.
  2029. ; 
  2030. ; The attribute type and value are passed in the attribute structure.  If the
  2031. ; attribute CreationID is non-zero, the server will verify that an attribute with
  2032. ; the specified value and creation number exists in aRecord.  If the attribute
  2033. ; CreationID is zero, the server will verify the attribute by type and value
  2034. ; alone, and return the attribute CreationID in the Attribute struct if the
  2035. ; attribute exists.
  2036. ; 
  2037.  
  2038. ; 
  2039. ; EnumerateAttributeTypesGet:
  2040. ; The following two calls can be used to enumerate the attribute types present in
  2041. ; a specified RecordID.  The first, EnumerateAttributeTypesGet, processes the request
  2042. ; and reads the response into getBuffer, as much as will fit.  A kOCEMoreData error will
  2043. ; be returned if the buffer was not large enough.  After this call completes, the
  2044. ; client can call EnumerateAttributeTypesParse (below: see).
  2045. ; 
  2046. ; The user will able to continue from a startingPoint by setting a startingAttrType.
  2047. ; Typically, this should be the last value returned in EnumerateAttributeTypesParse call
  2048. ; when 'kOCEMoreData' is returned.
  2049. ; 
  2050. ; If 'includeStartingPoint' is true when a 'startingAttrType' is specified, the starting value
  2051. ; will be included in the results, if it exists. If this is set to false, this value will not
  2052. ; be included. AttributeTypes following this type will be returned.
  2053. ; 
  2054.  
  2055. (defrecord DirEnumerateAttributeTypesGetPB 
  2056.    (qLink :POINTER)
  2057.    (reserved1 :SIGNED-LONG)
  2058.    (reserved2 :SIGNED-LONG)
  2059.    (ioCompletion :POINTER)
  2060.    (ioResult :SIGNED-INTEGER)
  2061.    (saveA5 :SIGNED-LONG)
  2062.    (reqCode :SIGNED-INTEGER)
  2063.    (reserved (:ARRAY :SIGNED-LONG 2))
  2064.    (serverHint :ADDRBLOCK)
  2065.    (dsRefNum :SIGNED-INTEGER)
  2066.    (callID :SIGNED-LONG)
  2067.    (identity :SIGNED-LONG)
  2068.    (gReserved1 :SIGNED-LONG)
  2069.    (gReserved2 :SIGNED-LONG)
  2070.    (gReserved3 :SIGNED-LONG)
  2071.    (clientData :SIGNED-LONG)
  2072.  
  2073.    (aRecord (:POINTER :RECORDID));   --> 
  2074.    (startingAttrType (:POINTER :ATTRIBUTETYPE));   --> starting point 
  2075.    (cReserved :SIGNED-LONG)     ;   --  
  2076.    (dReserved :SIGNED-LONG)     ;   --  
  2077.    (eReserved :SIGNED-LONG)     ;   --  
  2078.    (fReserved :SIGNED-LONG)     ;   --  
  2079.    (gReserved :SIGNED-LONG)     ;   --  
  2080.    (hReserved :SIGNED-LONG)     ;   --  
  2081.  
  2082. ; ERROR!! Record field INCLUDESTARTINGPOINT declared PACKED BOOLEAN !
  2083.    (includeStartingPoint :BOOLEAN);   --> if true return the attrType specified by starting point 
  2084.    (padByte :UNSIGNED-BYTE)
  2085.    (i1Reserved :SIGNED-INTEGER) ;   --  
  2086.    (getBuffer :POINTER)         ;   --> 
  2087.    (getBufferSize :SIGNED-LONG) ;   --> 
  2088.    )
  2089.  
  2090. ;  The call-back function is defined as follows: 
  2091. (def-mactype :FOREACHATTRTYPE (find-mactype :POINTER))
  2092. ;  FUNCTION ForEachAttrType(clientData: long; attrType: AttributeType): BOOLEAN;
  2093.  
  2094. ; 
  2095. ; EnumerateAttributeTypesParse:
  2096. ; After an EnumerateAttributeTypesGet call has completed, call EnumerateAttributeTypesParse
  2097. ; to parse through the buffer that was filled in EnumerateAttributeTypesGet.  The
  2098. ; toolbox will parse through the buffer and call the call-back routine for
  2099. ; each attribute type in the getBuffer.
  2100. ; 
  2101. ; The client should return false from eachAttrType to continue
  2102. ; processing of the EnumerateAttributeTypesParse request.  Returning true will
  2103. ; terminate the EnumerateAttributeTypesParse request.  The clientData parameter that
  2104. ; you pass in the parameter block will be passed to eachAttrType.
  2105. ; You are free to put anything in clientData - it is intended to allow
  2106. ; you some way to match the call-back to the original call (case: in; example: for; you make simultaneous asynchronous calls).
  2107. ; 
  2108. ; For synchronous calls, the call-back routine actually runs as part of the same thread
  2109. ; of execution as the thread that made the EnumerateAttributeTypesParse call.  That means that the
  2110. ; same low-memory globals, A5, stack, etc. are in effect during the call-back
  2111. ; that were in effect when the call was made.  Because of this, the call-back
  2112. ; routine has the same restrictions as the caller of EnumerateAttributeTypesParse.
  2113. ; If EnumerateAttributeTypesParse was not called from interrupt level, then the call-
  2114. ; back routine can allocate memory. For asynchronous calls, call-back routine is
  2115. ; like a ioCompletion except that A5 will be preserved for the application.
  2116. ; 
  2117.  
  2118. (defrecord DirEnumerateAttributeTypesParsePB 
  2119.    (qLink :POINTER)
  2120.    (reserved1 :SIGNED-LONG)
  2121.    (reserved2 :SIGNED-LONG)
  2122.    (ioCompletion :POINTER)
  2123.    (ioResult :SIGNED-INTEGER)
  2124.    (saveA5 :SIGNED-LONG)
  2125.    (reqCode :SIGNED-INTEGER)
  2126.    (reserved (:ARRAY :SIGNED-LONG 2))
  2127.    (serverHint :ADDRBLOCK)
  2128.    (dsRefNum :SIGNED-INTEGER)
  2129.    (callID :SIGNED-LONG)
  2130.    (identity :SIGNED-LONG)
  2131.    (gReserved1 :SIGNED-LONG)
  2132.    (gReserved2 :SIGNED-LONG)
  2133.    (gReserved3 :SIGNED-LONG)
  2134.    (clientData :SIGNED-LONG)
  2135.  
  2136.    (aRecord (:POINTER :RECORDID));   --> Same as DirEnumerateAttributeTypesGetPB 
  2137.    (bReserved :SIGNED-LONG)     ;   --  
  2138.    (cReserved :SIGNED-LONG)     ;   --  
  2139.    (dReserved :SIGNED-LONG)     ;   --  
  2140.    (eachAttrType :POINTER)      ;   --> 
  2141.    (fReserved :SIGNED-LONG)     ;   --  
  2142.    (gReserved :SIGNED-LONG)     ;   --  
  2143.    (hReserved :SIGNED-LONG)     ;   --  
  2144.    (iReserved :SIGNED-LONG)     ;   --  
  2145.    (getBuffer :POINTER)         ;   --> 
  2146.    (getBufferSize :SIGNED-LONG) ;   --> 
  2147.    )
  2148.  
  2149. ; 
  2150. ; DirAbort:
  2151. ; With this call a user will able to abort an outstanding directory service call.
  2152. ; A user must pass a pointer to the parameter block for the outstanding call.
  2153. ; In the current version of the product, the toolbox will process this call
  2154. ; for NetSearchADAPDirectoriesGet or FindADAPDirectoryByNetSearch calls and if possible
  2155. ; it will abort. For other calls for ADAP and PAB this will return 'daAbortFailErr'.
  2156. ; For DSAM directories, this call will be passed to the corresponding DSAM driver.
  2157. ; The DSAM driver may process this call or may return 'daAbortFailErr'. This call can
  2158. ; be called only in synchronous mode. Since the abort call makes references to fields in
  2159. ; the pb associated with the original call, this pb must not be disposed or or altered if
  2160. ; the original call completes before the abort call has completed.
  2161. ; 
  2162.  
  2163. (defrecord DirAbortPB 
  2164.    (qLink :POINTER)
  2165.    (reserved1 :SIGNED-LONG)
  2166.    (reserved2 :SIGNED-LONG)
  2167.    (ioCompletion :POINTER)
  2168.    (ioResult :SIGNED-INTEGER)
  2169.    (saveA5 :SIGNED-LONG)
  2170.    (reqCode :SIGNED-INTEGER)
  2171.    (reserved (:ARRAY :SIGNED-LONG 2))
  2172.    (serverHint :ADDRBLOCK)
  2173.    (dsRefNum :SIGNED-INTEGER)
  2174.    (callID :SIGNED-LONG)
  2175.    (identity :SIGNED-LONG)
  2176.    (gReserved1 :SIGNED-LONG)
  2177.    (gReserved2 :SIGNED-LONG)
  2178.    (gReserved3 :SIGNED-LONG)
  2179.    (clientData :SIGNED-LONG)
  2180.  
  2181.    (pb :POINTER)                ;   --> pb for the call which must be aborted 
  2182. ;  ^DirParamBlock 
  2183.    )
  2184.  
  2185. ; 
  2186. ; AddPseudonym:
  2187. ; An alternate name and type can be added to a given record. If allowDuplicate
  2188. ; is set the name and type will be added even if the same name and type already
  2189. ; exists.
  2190. ; 
  2191.  
  2192. (defrecord DirAddPseudonymPB 
  2193.    (qLink :POINTER)
  2194.    (reserved1 :SIGNED-LONG)
  2195.    (reserved2 :SIGNED-LONG)
  2196.    (ioCompletion :POINTER)
  2197.    (ioResult :SIGNED-INTEGER)
  2198.    (saveA5 :SIGNED-LONG)
  2199.    (reqCode :SIGNED-INTEGER)
  2200.    (reserved (:ARRAY :SIGNED-LONG 2))
  2201.    (serverHint :ADDRBLOCK)
  2202.    (dsRefNum :SIGNED-INTEGER)
  2203.    (callID :SIGNED-LONG)
  2204.    (identity :SIGNED-LONG)
  2205.    (gReserved1 :SIGNED-LONG)
  2206.    (gReserved2 :SIGNED-LONG)
  2207.    (gReserved3 :SIGNED-LONG)
  2208.    (clientData :SIGNED-LONG)
  2209.  
  2210.    (aRecord (:POINTER :RECORDID));   --> RecordID to which pseudonym is to be added 
  2211.    (pseudonymName (:POINTER :RSTRING));   --> new name to be added as pseudonym 
  2212.    (pseudonymType (:POINTER :RSTRING));   --> new name to be added as pseudonym 
  2213.    (allowDuplicate :BOOLEAN)    ;   --> 
  2214.    )
  2215.  
  2216. ; 
  2217. ; DeletePseudonym:
  2218. ; An alternate name and type for a given record can be deleted.
  2219. ; 
  2220.  
  2221. (defrecord DirDeletePseudonymPB 
  2222.    (qLink :POINTER)
  2223.    (reserved1 :SIGNED-LONG)
  2224.    (reserved2 :SIGNED-LONG)
  2225.    (ioCompletion :POINTER)
  2226.    (ioResult :SIGNED-INTEGER)
  2227.    (saveA5 :SIGNED-LONG)
  2228.    (reqCode :SIGNED-INTEGER)
  2229.    (reserved (:ARRAY :SIGNED-LONG 2))
  2230.    (serverHint :ADDRBLOCK)
  2231.    (dsRefNum :SIGNED-INTEGER)
  2232.    (callID :SIGNED-LONG)
  2233.    (identity :SIGNED-LONG)
  2234.    (gReserved1 :SIGNED-LONG)
  2235.    (gReserved2 :SIGNED-LONG)
  2236.    (gReserved3 :SIGNED-LONG)
  2237.    (clientData :SIGNED-LONG)
  2238.  
  2239.    (aRecord (:POINTER :RECORDID));   --> RecordID to which pseudonym to be added 
  2240.    (pseudonymName (:POINTER :RSTRING));   --> pseudonymName to be deleted 
  2241.    (pseudonymType (:POINTER :RSTRING));   --> pseudonymType to be deleted 
  2242.    )
  2243.  
  2244. ; 
  2245. ;     AddAlias:
  2246. ;     This call can be used to create an alias  record. The alias
  2247. ;     can be created either in the same or different cluster. ADAS will not support
  2248. ;     this call for this release. A new directory capability flag 'kSupportsAlias' will indicate
  2249. ;     if the directory supports this call. PAB's will support this call. For the PAB implementation,
  2250. ;     this call will create a record with the name and type specified an aRecord.
  2251. ;     This call works exactly like AddRecord.
  2252. ;     If 'allowDuplicate' is false and another record with same name and type already exists
  2253. ;     'daNoDupAllowed' error will be returned.
  2254. ; 
  2255. (defrecord DirAddAliasPB 
  2256.    (qLink :POINTER)
  2257.    (reserved1 :SIGNED-LONG)
  2258.    (reserved2 :SIGNED-LONG)
  2259.    (ioCompletion :POINTER)
  2260.    (ioResult :SIGNED-INTEGER)
  2261.    (saveA5 :SIGNED-LONG)
  2262.    (reqCode :SIGNED-INTEGER)
  2263.    (reserved (:ARRAY :SIGNED-LONG 2))
  2264.    (serverHint :ADDRBLOCK)
  2265.    (dsRefNum :SIGNED-INTEGER)
  2266.    (callID :SIGNED-LONG)
  2267.    (identity :SIGNED-LONG)
  2268.    (gReserved1 :SIGNED-LONG)
  2269.    (gReserved2 :SIGNED-LONG)
  2270.    (gReserved3 :SIGNED-LONG)
  2271.    (clientData :SIGNED-LONG)
  2272.  
  2273.    (aRecord (:POINTER :RECORDID));   -> 
  2274.    (allowDuplicate :BOOLEAN)    ;   -> 
  2275.    )
  2276.  
  2277. ; 
  2278. ; DirFindValue:
  2279. ; This call can be used to find the occurrence of a value. The value
  2280. ; to be matched is passed in the buffer 'matchingData' field. The current
  2281. ; ADAP/PAB implementation will match a maximum of 32 bytes of data.
  2282. ; For attribute values in the PAB/ADAP implementation, only the first 32 bytes will
  2283. ; be used for comparing the occurrence of data. Search can be restricted to
  2284. ; a particular record and/or attribute type by specifying 'aRecord' or 'aType'.
  2285. ; After finding one occurrence, 'startingRecord' and 'startingAttribute'
  2286. ; can be specified to find the next occurrence of the same value.
  2287. ; 'sortDirection' can be specified with starting values to search forward or backward.
  2288. ; When a matching value is found, the 'recordFound' indicates the reccordID in which the
  2289. ; data occurrence was found, 'attributeFound' indicates the attribute with in which the
  2290. ; matching data was found. ADAP/PAB implementation returns only the type and creationID of
  2291. ; attributes. Directories which don't support creationIDs may return the
  2292. ; complete value; hence this call may need a buffer to hold the data. For ADAP/PAB implementations
  2293. ; the user has to make a DirLookup call to get the actual data. 'recordFound' and
  2294. ; 'attributeFound' can be used to initialize 'startingRecord' and 'startingAttribute' to
  2295. ; find the next occurrence of the value.
  2296. ; 
  2297.  
  2298. (defrecord DirFindValuePB 
  2299.    (qLink :POINTER)
  2300.    (reserved1 :SIGNED-LONG)
  2301.    (reserved2 :SIGNED-LONG)
  2302.    (ioCompletion :POINTER)
  2303.    (ioResult :SIGNED-INTEGER)
  2304.    (saveA5 :SIGNED-LONG)
  2305.    (reqCode :SIGNED-INTEGER)
  2306.    (reserved (:ARRAY :SIGNED-LONG 2))
  2307.    (serverHint :ADDRBLOCK)
  2308.    (dsRefNum :SIGNED-INTEGER)
  2309.    (callID :SIGNED-LONG)
  2310.    (identity :SIGNED-LONG)
  2311.    (gReserved1 :SIGNED-LONG)
  2312.    (gReserved2 :SIGNED-LONG)
  2313.    (gReserved3 :SIGNED-LONG)
  2314.    (clientData :SIGNED-LONG)
  2315.  
  2316.    (aRLI (:POINTER :PACKEDRLI)) ;   --> an RLI specifying the cluster to be enumerated 
  2317.    (aRecord (:POINTER :LOCALRECORDID));   --> if not nil, look only in this record 
  2318.    (attrType (:POINTER :ATTRIBUTETYPE));   --> if not nil, look only in this attribute type 
  2319.    (startingRecord (:POINTER :LOCALRECORDID));   --> record in which to start searching 
  2320.    (startingAttribute (:POINTER :ATTRIBUTE));   --> attribute in which to start searching 
  2321.    (recordFound (:POINTER :LOCALRECORDID));  <--  record in which data was found 
  2322.    (attributeFound :ATTRIBUTE)  ;  <--  attribute in which data was found 
  2323.    (matchSize :SIGNED-LONG)     ;   --> length of matching bytes 
  2324.    (matchingData :POINTER)      ;   --> data bytes to be matched in search 
  2325.    (sortDirection :SIGNED-INTEGER);   --> sort direction (forwards or backwards) 
  2326.    )
  2327.  
  2328. ; 
  2329. ; EnumeratePseudonymGet:
  2330. ; This call can be used to enumerate the existing pseudonyms for
  2331. ; a given record specified in 'aRecord'. A starting point can be specified
  2332. ; by 'startingName' and 'startingType'. If the 'includeStartingPoint' boolean
  2333. ; is true and a starting point is specified, the name specified by startingName
  2334. ; and startingType also is returned in the results, if it exists. If this is set to false,
  2335. ; the pseudonym in startingName and Type is not included.
  2336. ; Pseudonyms returned in the 'getBuffer' can be extracted by making an
  2337. ; EnumeratePseudonymParse call. The results will consist of a RecordID with the
  2338. ; name and type of the pseudonym. If the buffer could not hold all the results, then
  2339. ; 'kOCEMoreData' error will be returned. The user will be able to continue the call by
  2340. ; using the last result returned as starting point for the next call.
  2341. ; 
  2342.  
  2343. (defrecord DirEnumeratePseudonymGetPB 
  2344.    (qLink :POINTER)
  2345.    (reserved1 :SIGNED-LONG)
  2346.    (reserved2 :SIGNED-LONG)
  2347.    (ioCompletion :POINTER)
  2348.    (ioResult :SIGNED-INTEGER)
  2349.    (saveA5 :SIGNED-LONG)
  2350.    (reqCode :SIGNED-INTEGER)
  2351.    (reserved (:ARRAY :SIGNED-LONG 2))
  2352.    (serverHint :ADDRBLOCK)
  2353.    (dsRefNum :SIGNED-INTEGER)
  2354.    (callID :SIGNED-LONG)
  2355.    (identity :SIGNED-LONG)
  2356.    (gReserved1 :SIGNED-LONG)
  2357.    (gReserved2 :SIGNED-LONG)
  2358.    (gReserved3 :SIGNED-LONG)
  2359.    (clientData :SIGNED-LONG)
  2360.  
  2361.    (aRecord (:POINTER :RECORDID));   --> 
  2362.    (startingName (:POINTER :RSTRING));   --> 
  2363.    (startingType (:POINTER :RSTRING));   --> 
  2364.    (dReserved :SIGNED-LONG)     ;   --  
  2365.    (eReserved :SIGNED-LONG)     ;   --  
  2366.    (fReserved :SIGNED-LONG)     ;   --  
  2367.    (gReserved :SIGNED-LONG)     ;   --  
  2368.    (hReserved :SIGNED-LONG)     ;   --  
  2369.  
  2370. ; ERROR!! Record field INCLUDESTARTINGPOINT declared PACKED BOOLEAN !
  2371.    (includeStartingPoint :BOOLEAN);   --> if true return the Pseudonym specified by
  2372. ;                                                 starting point will be included 
  2373.    (padByte :UNSIGNED-BYTE)
  2374.    (i1Reserved :SIGNED-INTEGER) ;   --  
  2375.    (getBuffer :POINTER)         ;   --> 
  2376.    (getBufferSize :SIGNED-LONG) ;   --> 
  2377.    )
  2378.  
  2379. ;  The call-back function is defined as follows: 
  2380. (def-mactype :FOREACHRECORDID (find-mactype :POINTER))
  2381. ;  FUNCTION ForEachRecordID(clientData: long; recordID: RecordID): BOOLEAN;
  2382.  
  2383. ; 
  2384. ; EnumeratePseudonymParse:
  2385. ; The pseudonyms returned in the 'getBuffer' from the EnumeratePseudonymGet call
  2386. ; can be extracted by using the EnumeratePseudonymParse call. 'eachRecordID'
  2387. ; will be called for each pseudonym.
  2388. ; 
  2389. ; Returning true from any call-back will terminate the EnumeratePseudonymParse call.
  2390. ; 
  2391. ; For synchronous calls, the call-back routine actually runs as part of the same thread
  2392. ; of execution as the thread that made the EnumeratePseudonymParse call.  That means that the
  2393. ; same low-memory globals, A5, stack, etc. are in effect during the call-back
  2394. ; that were in effect when the call was made.  Because of this, the call-back
  2395. ; routine has the same restrictions as the caller of EnumeratePseudonymParse:
  2396. ; if EnumeratePseudonymParse was not called from interrupt level, then the call-
  2397. ; back routine can allocate memory. For asynchronous calls, call-back routine is
  2398. ; like a ioCompletion except that A5 will be preserved for the application.
  2399. ; 
  2400.  
  2401. (defrecord DirEnumeratePseudonymParsePB 
  2402.    (qLink :POINTER)
  2403.    (reserved1 :SIGNED-LONG)
  2404.    (reserved2 :SIGNED-LONG)
  2405.    (ioCompletion :POINTER)
  2406.    (ioResult :SIGNED-INTEGER)
  2407.    (saveA5 :SIGNED-LONG)
  2408.    (reqCode :SIGNED-INTEGER)
  2409.    (reserved (:ARRAY :SIGNED-LONG 2))
  2410.    (serverHint :ADDRBLOCK)
  2411.    (dsRefNum :SIGNED-INTEGER)
  2412.    (callID :SIGNED-LONG)
  2413.    (identity :SIGNED-LONG)
  2414.    (gReserved1 :SIGNED-LONG)
  2415.    (gReserved2 :SIGNED-LONG)
  2416.    (gReserved3 :SIGNED-LONG)
  2417.    (clientData :SIGNED-LONG)
  2418.  
  2419.    (aRecord (:POINTER :RECORDID));   --> same as DirEnumerateAliasesGetPB 
  2420.    (bReserved :SIGNED-LONG)     ;   --  
  2421.    (cReserved :SIGNED-LONG)     ;   --  
  2422.    (eachRecordID :POINTER)      ;   --> 
  2423.    (eReserved :SIGNED-LONG)     ;   --  
  2424.    (fReserved :SIGNED-LONG)     ;   --  
  2425.    (gReserved :SIGNED-LONG)     ;   --  
  2426.    (hReserved :SIGNED-LONG)     ;   --  
  2427.    (iReserved :SIGNED-LONG)     ;   --  
  2428.    (getBuffer :POINTER)         ;   --> 
  2429.    (getBufferSize :SIGNED-LONG) ;   --> 
  2430.    )
  2431.  
  2432. ;  GetNameAndType 
  2433.  
  2434. (defrecord DirGetNameAndTypePB 
  2435.    (qLink :POINTER)
  2436.    (reserved1 :SIGNED-LONG)
  2437.    (reserved2 :SIGNED-LONG)
  2438.    (ioCompletion :POINTER)
  2439.    (ioResult :SIGNED-INTEGER)
  2440.    (saveA5 :SIGNED-LONG)
  2441.    (reqCode :SIGNED-INTEGER)
  2442.    (reserved (:ARRAY :SIGNED-LONG 2))
  2443.    (serverHint :ADDRBLOCK)
  2444.    (dsRefNum :SIGNED-INTEGER)
  2445.    (callID :SIGNED-LONG)
  2446.    (identity :SIGNED-LONG)
  2447.    (gReserved1 :SIGNED-LONG)
  2448.    (gReserved2 :SIGNED-LONG)
  2449.    (gReserved3 :SIGNED-LONG)
  2450.    (clientData :SIGNED-LONG)
  2451.  
  2452.    (aRecord (:POINTER :RECORDID));   --> 
  2453.    )
  2454.  
  2455. ; 
  2456. ; aRecord must contain valid RLI and a CreationID.  It
  2457. ; must also contain pointers to maximum-length RStrings (name and type fields)
  2458. ; in which will be returned the record's distinguished name and type.
  2459. ; 
  2460.  
  2461. ; 
  2462. ; SetNameAndType:
  2463. ; This call can be used to change a name and type for a record. The record
  2464. ; to be renamed is specified using 'aRecord'.
  2465. ; 'newName' and 'newType' indicate the name and type to be set.
  2466. ; 'allowDuplicate' if true indicates that name is to be set even if another
  2467. ; name and type exactly matches the newName and newType specified.
  2468. ; 
  2469. ; 'newName' and 'newType' are required since the directories not supporting
  2470. ; CreationID require name and type fields in the recordID to identify a given
  2471. ; record.
  2472. ; 
  2473.  
  2474. (defrecord DirSetNameAndTypePB 
  2475.    (qLink :POINTER)
  2476.    (reserved1 :SIGNED-LONG)
  2477.    (reserved2 :SIGNED-LONG)
  2478.    (ioCompletion :POINTER)
  2479.    (ioResult :SIGNED-INTEGER)
  2480.    (saveA5 :SIGNED-LONG)
  2481.    (reqCode :SIGNED-INTEGER)
  2482.    (reserved (:ARRAY :SIGNED-LONG 2))
  2483.    (serverHint :ADDRBLOCK)
  2484.    (dsRefNum :SIGNED-INTEGER)
  2485.    (callID :SIGNED-LONG)
  2486.    (identity :SIGNED-LONG)
  2487.    (gReserved1 :SIGNED-LONG)
  2488.    (gReserved2 :SIGNED-LONG)
  2489.    (gReserved3 :SIGNED-LONG)
  2490.    (clientData :SIGNED-LONG)
  2491.  
  2492.    (aRecord (:POINTER :RECORDID));   --> 
  2493.  
  2494. ; ERROR!! Record field ALLOWDUPLICATE declared PACKED BOOLEAN !
  2495.    (allowDuplicate :BOOLEAN)    ;   --> 
  2496.    (padByte :UNSIGNED-BYTE)
  2497.    (newName (:POINTER :RSTRING));   --> new name for the record 
  2498.    (newType (:POINTER :RSTRING));   --> new type for the record 
  2499.    )
  2500.  
  2501. ; 
  2502. ; DirGetMetaRecordInfo: This call can be made to obtain
  2503. ; the MetaRecordInfo for a given record. Information returned
  2504. ; is 16 bytes of OPAQUE information about the record.
  2505. ; 
  2506.  
  2507. (defrecord DirGetRecordMetaInfoPB 
  2508.    (qLink :POINTER)
  2509.    (reserved1 :SIGNED-LONG)
  2510.    (reserved2 :SIGNED-LONG)
  2511.    (ioCompletion :POINTER)
  2512.    (ioResult :SIGNED-INTEGER)
  2513.    (saveA5 :SIGNED-LONG)
  2514.    (reqCode :SIGNED-INTEGER)
  2515.    (reserved (:ARRAY :SIGNED-LONG 2))
  2516.    (serverHint :ADDRBLOCK)
  2517.    (dsRefNum :SIGNED-INTEGER)
  2518.    (callID :SIGNED-LONG)
  2519.    (identity :SIGNED-LONG)
  2520.    (gReserved1 :SIGNED-LONG)
  2521.    (gReserved2 :SIGNED-LONG)
  2522.    (gReserved3 :SIGNED-LONG)
  2523.    (clientData :SIGNED-LONG)
  2524.  
  2525.    (aRecord (:POINTER :RECORDID));   --> 
  2526.    (metaInfo :DIRMETAINFO)      ;  <--  
  2527.    )
  2528.  
  2529. ; 
  2530. ; DirGetDNodeMetaInfo: This call can be made to obtain
  2531. ; the DNodeMetaInfo for a given Packed RLI. Information returned
  2532. ; is 16 bytes of OPAQUE information about the DNode.
  2533. ; 
  2534.  
  2535. (defrecord DirGetDNodeMetaInfoPB 
  2536.    (qLink :POINTER)
  2537.    (reserved1 :SIGNED-LONG)
  2538.    (reserved2 :SIGNED-LONG)
  2539.    (ioCompletion :POINTER)
  2540.    (ioResult :SIGNED-INTEGER)
  2541.    (saveA5 :SIGNED-LONG)
  2542.    (reqCode :SIGNED-INTEGER)
  2543.    (reserved (:ARRAY :SIGNED-LONG 2))
  2544.    (serverHint :ADDRBLOCK)
  2545.    (dsRefNum :SIGNED-INTEGER)
  2546.    (callID :SIGNED-LONG)
  2547.    (identity :SIGNED-LONG)
  2548.    (gReserved1 :SIGNED-LONG)
  2549.    (gReserved2 :SIGNED-LONG)
  2550.    (gReserved3 :SIGNED-LONG)
  2551.    (clientData :SIGNED-LONG)
  2552.  
  2553.    (pRLI (:POINTER :PACKEDRLI)) ;   --> 
  2554.    (metaInfo :DIRMETAINFO)      ;  <--  
  2555.    )
  2556.  
  2557. ; 
  2558. ; EnumerateDirectoriesGet:
  2559. ; A user can enumerate all the directories installed. This includes installed
  2560. ; ADAP and DSAM directories. The user can specify a signature as input to restrict
  2561. ; the results. kDirADAPKind will return only ADAP directories, kDirDSAMKind
  2562. ; will return all DSAM directories. kDirAllKinds will get both ADAP & DSAM directories.
  2563. ; A specific signature (e.g. X.500) may be used to get directories with an X.500 signature.
  2564. ; The information for each directory returned will have directoryName, discriminator and features.
  2565. ; 
  2566. ; If the user receives 'noErr' or 'kOCEMoreData', the buffer will contain valid results. A user
  2567. ; can extract the results in the 'getBuffer' by making an DirEnumerateDirectories call.
  2568. ; 
  2569. ; If 'kOCEMoreData' is received, the user can continue enumeration by using the last directory and
  2570. ; discriminator as startingDirectoryName and staringDirDiscriminator in the next call.
  2571. ; 
  2572. ; If 'includeStartingPoint' is true and a starting point is specified,
  2573. ; the staring point will be returned in the result. If false, it is not included.
  2574. ; 
  2575.  
  2576. (defrecord DirEnumerateDirectoriesGetPB 
  2577.    (qLink :POINTER)
  2578.    (reserved1 :SIGNED-LONG)
  2579.    (reserved2 :SIGNED-LONG)
  2580.    (ioCompletion :POINTER)
  2581.    (ioResult :SIGNED-INTEGER)
  2582.    (saveA5 :SIGNED-LONG)
  2583.    (reqCode :SIGNED-INTEGER)
  2584.    (reserved (:ARRAY :SIGNED-LONG 2))
  2585.    (serverHint :ADDRBLOCK)
  2586.    (dsRefNum :SIGNED-INTEGER)
  2587.    (callID :SIGNED-LONG)
  2588.    (identity :SIGNED-LONG)
  2589.    (gReserved1 :SIGNED-LONG)
  2590.    (gReserved2 :SIGNED-LONG)
  2591.    (gReserved3 :SIGNED-LONG)
  2592.    (clientData :SIGNED-LONG)
  2593.  
  2594.    (directoryKind :SIGNED-LONG) ;   --> enumerate directories bearing this signature 
  2595.    (startingDirectoryName (:POINTER :DIRECTORYNAME));   --> staring directory name 
  2596.    (startingDirDiscriminator :DIRDISCRIMINATOR);   --> staring directory discriminator 
  2597.    (eReserved :SIGNED-LONG)     ;   --  
  2598.    (fReserved :SIGNED-LONG)     ;   --  
  2599.    (gReserved :SIGNED-LONG)     ;   --  
  2600.    (hReserved :SIGNED-LONG)     ;   --  
  2601.  
  2602. ; ERROR!! Record field INCLUDESTARTINGPOINT declared PACKED BOOLEAN !
  2603.    (includeStartingPoint :BOOLEAN);   --> if true return the dir specified by starting point 
  2604.    (padByte :UNSIGNED-BYTE)
  2605.    (i1Reserved :SIGNED-INTEGER) ;   --  
  2606.    (getBuffer :POINTER)         ;   --> 
  2607.    (getBufferSize :SIGNED-LONG) ;   --> 
  2608.    )
  2609.  
  2610. (def-mactype :FOREACHDIRECTORY (find-mactype :POINTER))
  2611. ;  FUNCTION ForEachDirectory(clientData: long; dirName: DirectoryNamePtr;
  2612. ;         discriminator: DirDiscriminator; features: DirGestalt): BOOLEAN;
  2613.  
  2614. ; 
  2615. ; EnumerateDirectoriesParse:
  2616. ; The directory info returned in 'getBuffer' from the EnumerateDirectoriesGet call
  2617. ; can be extracted using the EnumerateDirectoriesParse call. 'eachDirectory' will
  2618. ; be called for each directory.
  2619. ; 
  2620. ; Returning true from any call-back will terminate the EnumerateDirectoriesParse call.
  2621. ; 
  2622. ; For synchronous calls, the call-back routine actually runs as part of the same thread
  2623. ; of execution as the thread that made the EnumerateDirectoriesParse call.  That means that the
  2624. ; same low-memory globals, A5, stack, etc. are in effect during the call-back
  2625. ; that were in effect when the call was made.  Because of this, the call-back
  2626. ; routine has the same restrictions as the caller of EnumerateDirectoriesParse:
  2627. ; if EnumerateDirectoriesParse was not called from interrupt level, then the call-
  2628. ; back routine can allocate memory. For asynchronous calls, call-back routine is
  2629. ; like a ioCompletion except that A5 will be preserved for the application.
  2630. ; 
  2631. ; eachDirectory will be called each time to return to the client a
  2632. ; DirectoryName, DirDiscriminator, and features for that directory.
  2633. ; 
  2634.  
  2635. (defrecord DirEnumerateDirectoriesParsePB 
  2636.    (qLink :POINTER)
  2637.    (reserved1 :SIGNED-LONG)
  2638.    (reserved2 :SIGNED-LONG)
  2639.    (ioCompletion :POINTER)
  2640.    (ioResult :SIGNED-INTEGER)
  2641.    (saveA5 :SIGNED-LONG)
  2642.    (reqCode :SIGNED-INTEGER)
  2643.    (reserved (:ARRAY :SIGNED-LONG 2))
  2644.    (serverHint :ADDRBLOCK)
  2645.    (dsRefNum :SIGNED-INTEGER)
  2646.    (callID :SIGNED-LONG)
  2647.    (identity :SIGNED-LONG)
  2648.    (gReserved1 :SIGNED-LONG)
  2649.    (gReserved2 :SIGNED-LONG)
  2650.    (gReserved3 :SIGNED-LONG)
  2651.    (clientData :SIGNED-LONG)
  2652.  
  2653.    (aReserved :SIGNED-LONG)     ;   --  
  2654.    (bReserved :SIGNED-LONG)     ;   --  
  2655.    (cReserved :SIGNED-LONG)     ;   --  
  2656.    (dReserved :SIGNED-LONG)     ;   --  
  2657.    (eachDirectory :POINTER)     ;   --> 
  2658.    (fReserved :SIGNED-LONG)     ;   --  
  2659.    (gReserved :SIGNED-LONG)     ;   --  
  2660.    (hReserved :SIGNED-LONG)     ;   --  
  2661.    (iReserved :SIGNED-LONG)     ;   --  
  2662.    (getBuffer :POINTER)         ;   --> 
  2663.    (getBufferSize :SIGNED-LONG) ;   --> 
  2664.    )
  2665.  
  2666. ; 
  2667. ; The Following five call are specific to ADAP Directories. Toolbox
  2668. ; remembers a list of directories across boots. If any directory service
  2669. ; call is intended for a ADAP directory, then it must be in the list.
  2670. ; In order for managing this list, A client (Probably DE will use these
  2671. ; calls.
  2672. ; DirAddADAPDirectoryPB: Add a new ADAP directory to the list.
  2673. ; DirRemoveADAPDirectory: Remove a ADAP directory from the list.
  2674. ; DirNetSearchADAPDirectoriesGet:   search an internet for adas directories.
  2675. ; DirNetSearchADAPDirectoriesParse: extract the results obtained NetSearchADAPDirectoriesGet.
  2676. ; DirFindADAPDirectoryByNetSearch: Find a specified directory through net search.
  2677. ; 
  2678.  
  2679. ; 
  2680. ; NetSearchADAPDirectoriesGet:
  2681. ; This call can be used to make a network wide search for finding ADAP directories.
  2682. ; This call will be supported only by 'ADAP' and involve highly expensive
  2683. ; network operations, so the user is advised to use utmost discretion before
  2684. ; making this call. The results will be collected in the 'getbuffer' and can be
  2685. ; extracted using NetSearchADAPDirectoriesParse call. The directoryName,
  2686. ; the directoryDiscriminator, features and serverHint (AppleTalk address for
  2687. ; a PathFinder serving that directory) are collected for each directory found
  2688. ; on the network. If buffer is too small to hold all the directories found on
  2689. ; the network, a 'kOCEMoreData' error will be returned.
  2690. ; 
  2691.  
  2692. (defrecord DirNetSearchADAPDirectoriesGetPB 
  2693.    (qLink :POINTER)
  2694.    (reserved1 :SIGNED-LONG)
  2695.    (reserved2 :SIGNED-LONG)
  2696.    (ioCompletion :POINTER)
  2697.    (ioResult :SIGNED-INTEGER)
  2698.    (saveA5 :SIGNED-LONG)
  2699.    (reqCode :SIGNED-INTEGER)
  2700.    (reserved (:ARRAY :SIGNED-LONG 2))
  2701.    (serverHint :ADDRBLOCK)
  2702.    (dsRefNum :SIGNED-INTEGER)
  2703.    (callID :SIGNED-LONG)
  2704.    (identity :SIGNED-LONG)
  2705.    (gReserved1 :SIGNED-LONG)
  2706.    (gReserved2 :SIGNED-LONG)
  2707.    (gReserved3 :SIGNED-LONG)
  2708.    (clientData :SIGNED-LONG)
  2709.  
  2710.    (getBuffer :POINTER)         ;   --> 
  2711.    (getBufferSize :SIGNED-LONG) ;   --> 
  2712.    (cReserved :SIGNED-LONG)     ;   --  
  2713.    )
  2714.  
  2715. (def-mactype :FOREACHADAPDIRECTORY (find-mactype :POINTER))
  2716. ;  FUNCTION ForEachADAPDirectory(
  2717. ;         clientData: long; dirName: DirectoryNamePtr;
  2718. ;         discriminator: DirDiscriminator; features: DirGestalt;
  2719. ;         serverHint: AddrBlock): BOOLEAN;
  2720.  
  2721. ; 
  2722. ; DirNetSearchADAPDirectoriesParse:
  2723. ; This call can be used to extract the results obtained in the 'getBuffer'.
  2724. ; The directoryName, directoryDiscriminator, features and
  2725. ; serverHint (AppleTalk address for a PathFinder serving that directory) are
  2726. ; returned in each call-back. These values may be used to make an
  2727. ; AddADAPDirectory call.
  2728. ; 
  2729. ; Returning TRUE from any call-back will terminate the NetSearchADAPDirectoriesParse request.
  2730. ; 
  2731. ; For synchronous calls, the call-back routine actually runs as part of the same thread
  2732. ; of execution as the thread that made the DirNetSearchADAPDirectoriesParse call. That means that the
  2733. ; same low-memory globals, A5, stack, etc. are in effect during the call-back
  2734. ; that were in effect when the call was made.  Because of this, the call-back
  2735. ; routine has the same restrictions as the caller of DirNetSearchADAPDirectoriesParse:
  2736. ; if DirNetSearchADAPDirectoriesParse was not called from interrupt level, then the call-
  2737. ; back routine can allocate memory. For asynchronous calls, call-back routine is
  2738. ; like a ioCompletion except that A5 will be preserved for the application.
  2739. ; 
  2740.  
  2741. (defrecord DirNetSearchADAPDirectoriesParsePB 
  2742.    (qLink :POINTER)
  2743.    (reserved1 :SIGNED-LONG)
  2744.    (reserved2 :SIGNED-LONG)
  2745.    (ioCompletion :POINTER)
  2746.    (ioResult :SIGNED-INTEGER)
  2747.    (saveA5 :SIGNED-LONG)
  2748.    (reqCode :SIGNED-INTEGER)
  2749.    (reserved (:ARRAY :SIGNED-LONG 2))
  2750.    (serverHint :ADDRBLOCK)
  2751.    (dsRefNum :SIGNED-INTEGER)
  2752.    (callID :SIGNED-LONG)
  2753.    (identity :SIGNED-LONG)
  2754.    (gReserved1 :SIGNED-LONG)
  2755.    (gReserved2 :SIGNED-LONG)
  2756.    (gReserved3 :SIGNED-LONG)
  2757.    (clientData :SIGNED-LONG)
  2758.  
  2759.    (getBuffer :POINTER)         ;   --> 
  2760.    (getBufferSize :SIGNED-LONG) ;   --> 
  2761.    (eachADAPDirectory :POINTER) ;   --> 
  2762.    )
  2763.  
  2764. ; 
  2765. ; DirFindADAPDirectoryByNetSearch:
  2766. ; This call can be used to make a network wide search to find an ADAP directory.
  2767. ; This call will be supported only by 'ADAP' and involves highly expensive
  2768. ; network operations, so the user is advised to use utmost discretion before
  2769. ; making this call. The directory is specified using directoryName and discriminator.
  2770. ; If 'addToOCESetup' is true, the directory will be automatically added to the setup
  2771. ; list and will be visible through the EnumerateDirectories call and also
  2772. ; also a creationID to the directoryRecord will be returned.
  2773. ; If this parameter is set to 'false', the directory will be added to temporary list
  2774. ; and will be available for making other directory service calls. The directories
  2775. ; which are not in the preference directory list will not be visible through the
  2776. ; EnumerateDirectories call.
  2777. ; 
  2778.  
  2779. (defrecord DirFindADAPDirectoryByNetSearchPB 
  2780.    (qLink :POINTER)
  2781.    (reserved1 :SIGNED-LONG)
  2782.    (reserved2 :SIGNED-LONG)
  2783.    (ioCompletion :POINTER)
  2784.    (ioResult :SIGNED-INTEGER)
  2785.    (saveA5 :SIGNED-LONG)
  2786.    (reqCode :SIGNED-INTEGER)
  2787.    (reserved (:ARRAY :SIGNED-LONG 2))
  2788.    (serverHint :ADDRBLOCK)
  2789.    (dsRefNum :SIGNED-INTEGER)
  2790.    (callID :SIGNED-LONG)
  2791.    (identity :SIGNED-LONG)
  2792.    (gReserved1 :SIGNED-LONG)
  2793.    (gReserved2 :SIGNED-LONG)
  2794.    (gReserved3 :SIGNED-LONG)
  2795.    (clientData :SIGNED-LONG)
  2796.  
  2797.    (directoryName (:POINTER :DIRECTORYNAME));   --> directory name 
  2798.    (discriminator :DIRDISCRIMINATOR);   --> discriminate between dup dir names 
  2799.  
  2800. ; ERROR!! Record field ADDTOOCESETUP declared PACKED BOOLEAN !
  2801.    (addToOCESetup :BOOLEAN)     ;   --> add this directory to OCE Setup List 
  2802.    (padByte :UNSIGNED-BYTE)
  2803.    (directoryRecordCID :CREATIONID);  <--  creationID for the directory record 
  2804.    )
  2805.  
  2806. ; 
  2807. ; DirAddADAPDirectory:
  2808. ; The directory specified by 'directoryName' and 'discriminator' will be
  2809. ; added to the list of directories maintained by the Toolbox. Once added,
  2810. ; the directory is available across boots, until the directory is removed
  2811. ; explicitly through a DirRemoveADAPDirectory call.
  2812. ; If 'serverHint' is not nil, the address provided will be used
  2813. ; to contact a PathFinder for the directory specified.
  2814. ; If 'serverHint' is nil or does not point to a valid PathFinder server
  2815. ; for that directory, this call will fail.
  2816. ; If 'addToOCESetup' is true, the directory will be automatically added to the setup
  2817. ; directory list and will be visible through EnumerateDirectories calls and
  2818. ; also a creationID to the directoryRecord will be returned.
  2819. ; If this parameter is set to 'false', directory will be added to temprary list
  2820. ; and will be available for making other directory service calls. The directories
  2821. ; which are not in the setup  list will not be visible through
  2822. ; EnumerateDirectories call.
  2823. ; 
  2824.  
  2825. (defrecord DirAddADAPDirectoryPB 
  2826.    (qLink :POINTER)
  2827.    (reserved1 :SIGNED-LONG)
  2828.    (reserved2 :SIGNED-LONG)
  2829.    (ioCompletion :POINTER)
  2830.    (ioResult :SIGNED-INTEGER)
  2831.    (saveA5 :SIGNED-LONG)
  2832.    (reqCode :SIGNED-INTEGER)
  2833.    (reserved (:ARRAY :SIGNED-LONG 2))
  2834.    (serverHint :ADDRBLOCK)
  2835.    (dsRefNum :SIGNED-INTEGER)
  2836.    (callID :SIGNED-LONG)
  2837.    (identity :SIGNED-LONG)
  2838.    (gReserved1 :SIGNED-LONG)
  2839.    (gReserved2 :SIGNED-LONG)
  2840.    (gReserved3 :SIGNED-LONG)
  2841.    (clientData :SIGNED-LONG)
  2842.  
  2843.    (directoryName (:POINTER :DIRECTORYNAME));   --> directory name 
  2844.    (discriminator :DIRDISCRIMINATOR);   --> discriminate between dup dir names 
  2845.  
  2846. ; ERROR!! Record field ADDTOOCESETUP declared PACKED BOOLEAN !
  2847.    (addToOCESetup :BOOLEAN)     ;   --> add this directory to OCE Setup 
  2848.    (padByte :UNSIGNED-BYTE)
  2849.    (directoryRecordCID :CREATIONID);  <--  creationID for the directory record 
  2850.    )
  2851.  
  2852. ; 
  2853. ; GetDirectoryInfo:
  2854. ; DirGetDirectoryInfo will do:
  2855. ; 
  2856. ; If a 'dsRefNum' is non-Zero, the directory information for
  2857. ;     the corresponding  PAB will be  returned.
  2858. ;  If 'dsRefNum' is zero and 'serverHint' is non-zero, If the
  2859. ;  'serverHint' points to a valid ADAP Directory Server(Finder: Path),
  2860. ;  the directory information (i.e. directoryName, discriminator, features)
  2861. ;  for that directory will be returned.
  2862. ;     If a  vlid directory name and discriminator are provided
  2863. ;     features (Set of capability flags) for that directory will be returned.
  2864. ; 
  2865.  
  2866. (defrecord DirGetDirectoryInfoPB 
  2867.    (qLink :POINTER)
  2868.    (reserved1 :SIGNED-LONG)
  2869.    (reserved2 :SIGNED-LONG)
  2870.    (ioCompletion :POINTER)
  2871.    (ioResult :SIGNED-INTEGER)
  2872.    (saveA5 :SIGNED-LONG)
  2873.    (reqCode :SIGNED-INTEGER)
  2874.    (reserved (:ARRAY :SIGNED-LONG 2))
  2875.    (serverHint :ADDRBLOCK)
  2876.    (dsRefNum :SIGNED-INTEGER)
  2877.    (callID :SIGNED-LONG)
  2878.    (identity :SIGNED-LONG)
  2879.    (gReserved1 :SIGNED-LONG)
  2880.    (gReserved2 :SIGNED-LONG)
  2881.    (gReserved3 :SIGNED-LONG)
  2882.    (clientData :SIGNED-LONG)
  2883.  
  2884.    (directoryName (:POINTER :DIRECTORYNAME));   --> directory name 
  2885.    (discriminator :DIRDISCRIMINATOR);  <--> descriminate between dup dir names 
  2886.    (features :SIGNED-LONG)      ;  <--  capability bit flags 
  2887.    )
  2888.  
  2889. ; 
  2890. ; pass kThisRecordOwnerMask, kFriendsMask, kAuthenticatedInDNodeMask, kAuthenticatedInDirectoryMask,
  2891. ; kGuestMask, or kMeMask to this routine, and it will return a pointer to a
  2892. ; DSSpec that can be used in the Get or Set Access Controls calls.
  2893. ; 
  2894.  
  2895.  
  2896. (deftrap _ocegetaccesscontroldsspec ((categorybitmask :signed-long))
  2897.    (:stack (:pointer :dsspec))
  2898.    (:stack-trap #xAA5C :d0 837 categorybitmask))
  2899.  
  2900. ; 
  2901. ;     Note on Access Controls:
  2902. ;     Access control is based on a list model.
  2903. ;     You can add Access Controls to a dsObject through set calls.
  2904. ;     You can get access controls list which gives dsObject and accMask for each dsObject.
  2905. ;     GetAccessControl can be limited to currently supplied identity by setting forCurrentUserOnly.
  2906. ;     There are special DSObjects are defined in ADASTypes.h for each of the category
  2907. ;     supported in ADAS Directories. (kOwner, kFriends, kAuthenticatedToCluster,
  2908. ;     kAuthenticatedToDirectory, kGuest) and DUGetActlDSSpec call can be used
  2909. ;     to obtain appropraiate DSSpec before making set calls to ADAS directories.
  2910. ; 
  2911.  
  2912. ; 
  2913. ;     GetDNodeAccessControlGet:
  2914. ;     This call can be done to get back access control list for a DNode.
  2915. ;     pRLI -> RLI of the DNode whose access control list is sought
  2916. ;     curUserAccMask -> If this is 'true', Access controls for the user specified by
  2917. ;                       the identity parameter will be returned other wise entire list
  2918. ;                       will be returned.
  2919. ;     startingDsObj  -> If this is not nil, list should be started after this object.
  2920. ;     startingPointInclusive -> If staringDsObj is specified, include that in the returned
  2921. ;                               results.
  2922. ; 
  2923. ;     The results will be collected in the 'getBuffer' supplied by the user.
  2924. ;     If buffer can not hold all the data returned 'daMoreData' error will be returned.
  2925. ; 
  2926. ;     If user receives 'noErr' or 'daMoreData', buffer will contain valid results. A user
  2927. ;     can extract the results in the 'getBuffer' by making 'DsGetDNodeAccessControlParse' call.
  2928. ; 
  2929. ;     Results returned for each DSObject will contain DSSpecPtr and three sets of access mask.
  2930. ; 
  2931.  
  2932. (defrecord DirGetDNodeAccessControlGetPB 
  2933.    (qLink :POINTER)
  2934.    (reserved1 :SIGNED-LONG)
  2935.    (reserved2 :SIGNED-LONG)
  2936.    (ioCompletion :POINTER)
  2937.    (ioResult :SIGNED-INTEGER)
  2938.    (saveA5 :SIGNED-LONG)
  2939.    (reqCode :SIGNED-INTEGER)
  2940.    (reserved (:ARRAY :SIGNED-LONG 2))
  2941.    (serverHint :ADDRBLOCK)
  2942.    (dsRefNum :SIGNED-INTEGER)
  2943.    (callID :SIGNED-LONG)
  2944.    (identity :SIGNED-LONG)
  2945.    (gReserved1 :SIGNED-LONG)
  2946.    (gReserved2 :SIGNED-LONG)
  2947.    (gReserved3 :SIGNED-LONG)
  2948.    (clientData :SIGNED-LONG)
  2949.  
  2950.    (pRLI (:POINTER :PACKEDRLI)) ;   -> RLI of the cluster whose access control list is sought  
  2951.    (bReserved :SIGNED-LONG)     ;   -- unused 
  2952.    (cReserved :SIGNED-LONG)     ;   -- unused 
  2953.    (dReserved :SIGNED-LONG)     ;   -- unused 
  2954.    (eResreved :SIGNED-LONG)     ;  --> 
  2955.    (forCurrentUserOnly :BOOLEAN);  -->  
  2956.    (startingPoint (:POINTER :DSSPEC));  --> starting Point 
  2957.    (includeStartingPoint :BOOLEAN);   -> if true return the DsObject
  2958. ;                                                 specified in starting point 
  2959.    (getBuffer :POINTER)         ;     -> 
  2960.    (getBufferSize :SIGNED-LONG) ;   -> 
  2961.  
  2962.    )
  2963.  
  2964. ;  The Access Control call-back function is defined as follows: 
  2965. (def-mactype :FOREACHDNODEACCESSCONTROL (find-mactype :POINTER))
  2966. ;  FUNCTION ForEachDNodeAccessControl(
  2967. ;         clientData: long;
  2968. ;         dsObj: DSSpec; activeDnodeAccMask: AccessMask;
  2969. ;         defaultRecordAccMask: AccessMask;
  2970. ;         defaultAttributeAccMask: AccessMask): BOOLEAN;
  2971.  
  2972. ; 
  2973. ;     GetDNodeAccessControlParse:
  2974. ;     After an GetDNodeAccessControlGet call has completed,
  2975. ;     call GetDNodeAccessControlParse to parse through the buffer that
  2976. ;     that was filled in GetDNodeAccessControlGet.
  2977. ; 
  2978. ;     'eachObject' will be called each time to return to the client a
  2979. ;     DsObject and a set of three accMasks (three LONGINT words) for that object.
  2980. ;     Acceesmasks returned apply to the dsObject in the callback :
  2981. ;     1. Currently Active Access mask for the specified DNode.
  2982. ;     2. Default Access mask for any Record in the DNode
  2983. ;     3. Default Access mask for any Attribute in the DNode
  2984. ;     The clientData parameter that you pass in the parameter block will be passed
  2985. ;     to 'eachObject'.  You are free to put anything in clientData - it is intended
  2986. ;     to allow you some way to match the call-back to the original call (example: for; you make more then one aysynchronous GetDNodeAccessControlGet calls and you want to
  2987. ;     associate returned results in some way).
  2988. ; 
  2989. ;     The client should return FALSE from 'eachObject' to continue
  2990. ;     processing of the GetDNodeAccessControlParse request.  Returning TRUE will
  2991. ;     terminate the GetDNodeAccessControlParse request.
  2992. ; 
  2993. ;     For synchronous calls, the call-back routine actually runs as part of the same thread
  2994. ;     of execution as the thread that made the GetDNodeAccessControlParse call.  That means that the
  2995. ;     same low-memory globals, A5, stack, etc. are in effect during the call-back
  2996. ;     that were in effect when the call was made.  Because of this, the call-back
  2997. ;     routine has the same restrictions as the caller of GetDNodeAccessControlParse:
  2998. ;     if GetDNodeAccessControlParse was not called from interrupt level, then the call-
  2999. ;     back routine can allocate memory. For asynchronous calls, call-back routine is
  3000. ;     like a ioCompletion except that A5 will be preserved for the application.
  3001. ; 
  3002.  
  3003. (defrecord DirGetDNodeAccessControlParsePB 
  3004.    (qLink :POINTER)
  3005.    (reserved1 :SIGNED-LONG)
  3006.    (reserved2 :SIGNED-LONG)
  3007.    (ioCompletion :POINTER)
  3008.    (ioResult :SIGNED-INTEGER)
  3009.    (saveA5 :SIGNED-LONG)
  3010.    (reqCode :SIGNED-INTEGER)
  3011.    (reserved (:ARRAY :SIGNED-LONG 2))
  3012.    (serverHint :ADDRBLOCK)
  3013.    (dsRefNum :SIGNED-INTEGER)
  3014.    (callID :SIGNED-LONG)
  3015.    (identity :SIGNED-LONG)
  3016.    (gReserved1 :SIGNED-LONG)
  3017.    (gReserved2 :SIGNED-LONG)
  3018.    (gReserved3 :SIGNED-LONG)
  3019.    (clientData :SIGNED-LONG)
  3020.  
  3021.    (pRLI (:POINTER :PACKEDRLI)) ;   -> RLI of the cluster  
  3022.    (bReserved :SIGNED-LONG)     ;   -- unused 
  3023.    (cReserved :SIGNED-LONG)     ;   -- unused 
  3024.    (dReserved :SIGNED-LONG)     ;   -- unused 
  3025.    (eachObject :POINTER)        ;  --> 
  3026.    (forCurrentUserOnly :BOOLEAN);  -->  
  3027.    (startingPoint (:POINTER :DSSPEC));  --> starting Point 
  3028.    (includeStartingPoint :BOOLEAN);   -> if true return the record
  3029. ;                                                 specified in starting point 
  3030.    (getBuffer :POINTER)         ;     -> 
  3031.    (getBufferSize :SIGNED-LONG) ;   -> 
  3032.    )
  3033.  
  3034. ; 
  3035. ;     GetRecordAccessControlGet:
  3036. ;     This call can be done to get back access control list for a RecordID.
  3037. ;     aRecord -> RecordID to which access control list is sought
  3038. ;     curUserAccMask -> If this is 'true', Access controls for the user specified by
  3039. ;                       the identity parameter will be returned other wise entire list
  3040. ;                       will be returned.
  3041. ;     startingDsObj  -> If this is not nil, list should be started after this object.
  3042. ;     startingPointInclusive -> If staringDsObj is specified, include that in the returned
  3043. ;                               results.
  3044. ; 
  3045. ;     The results will be collected in the 'getBuffer' supplied by the user.
  3046. ;     If buffer can not hold all the data returned 'daMoreData' error will be returned.
  3047. ; 
  3048. ;     If user receives 'noErr' or 'daMoreData', buffer will contain valid results. A user
  3049. ;     can extract the results in the 'getBuffer' by making 'DsGetDNodeAccessControlParse' call.
  3050. ; 
  3051. ;     Results returned for each DSObject will contain DSSpecPtr and accMask.
  3052. ; 
  3053.  
  3054. (defrecord DirGetRecordAccessControlGetPB 
  3055.    (qLink :POINTER)
  3056.    (reserved1 :SIGNED-LONG)
  3057.    (reserved2 :SIGNED-LONG)
  3058.    (ioCompletion :POINTER)
  3059.    (ioResult :SIGNED-INTEGER)
  3060.    (saveA5 :SIGNED-LONG)
  3061.    (reqCode :SIGNED-INTEGER)
  3062.    (reserved (:ARRAY :SIGNED-LONG 2))
  3063.    (serverHint :ADDRBLOCK)
  3064.    (dsRefNum :SIGNED-INTEGER)
  3065.    (callID :SIGNED-LONG)
  3066.    (identity :SIGNED-LONG)
  3067.    (gReserved1 :SIGNED-LONG)
  3068.    (gReserved2 :SIGNED-LONG)
  3069.    (gReserved3 :SIGNED-LONG)
  3070.    (clientData :SIGNED-LONG)
  3071.  
  3072.    (aRecord (:POINTER :RECORDID));   -> RecordID to which access control list is sought list is sought  
  3073.    (bReserved :SIGNED-LONG)     ;   -- unused 
  3074.    (cReserved :SIGNED-LONG)     ;   -- unused 
  3075.    (dReserved :SIGNED-LONG)     ;   -- unused 
  3076.    (eResreved :SIGNED-LONG)     ;  --> 
  3077.    (forCurrentUserOnly :BOOLEAN);  -->  
  3078.    (startingPoint (:POINTER :DSSPEC));  --> starting Point 
  3079.    (includeStartingPoint :BOOLEAN);   -> if true return the DsObject
  3080. ;                                                 specified in starting point 
  3081.    (getBuffer :POINTER)         ;     -> 
  3082.    (getBufferSize :SIGNED-LONG) ;   -> 
  3083.    )
  3084.  
  3085. ;  The Access Control call-back function is defined as follows: 
  3086. (def-mactype :FOREACHRECORDACCESSCONTROL (find-mactype :POINTER))
  3087. ;  FUNCTION ForEachRecordAccessControl(clientData: long;
  3088. ;         dsObj: DSSpec; activeDnodeAccMask: AccessMask;
  3089. ;         activeRecordAccMask: AccessMask;
  3090. ;         defaultAttributeAccMask: AccessMask): BOOLEAN;
  3091.  
  3092. ; 
  3093. ;     GetRecordAccessControlParse:
  3094. ;     After an GetRecordAccessControlGet call has completed,
  3095. ;     call GetRecordAccessControlParse to parse through the buffer that
  3096. ;     that was filled in GetRecordAccessControlGet.
  3097. ; 
  3098. ;     'eachObject' will be called each time to return to the client a
  3099. ;     DsObject and a set of three accMasks (three LONGINT words) for that object.
  3100. ;     Acceesmasks returned apply to the dsObject in the callback :
  3101. ;     1. Active Access mask for the DNode Containing the Record.
  3102. ;     2. Active Access mask for the Record specified.
  3103. ;     3. Defualt Access mask for Attributes in the record.
  3104. ;     The clientData parameter that you pass in the parameter block will be passed
  3105. ;     to 'eachObject'.  You are free to put anything in clientData - it is intended
  3106. ;     to allow you some way to match the call-back to the original call (example: for; you make more then one aysynchronous GetRecordAccessControlGet calls and you want to
  3107. ;     associate returned results in some way).
  3108. ; 
  3109. ;     The client should return FALSE from 'eachObject' to continue
  3110. ;     processing of the GetRecordAccessControlParse request.  Returning TRUE will
  3111. ;     terminate the GetRecordAccessControlParse request.
  3112. ; 
  3113. ;     For synchronous calls, the call-back routine actually runs as part of the same thread
  3114. ;     of execution as the thread that made the GetRecordAccessControlParse call.  That means that the
  3115. ;     same low-memory globals, A5, stack, etc. are in effect during the call-back
  3116. ;     that were in effect when the call was made.  Because of this, the call-back
  3117. ;     routine has the same restrictions as the caller of GetRecordAccessControlParse:
  3118. ;     if GetRecordAccessControlParse was not called from interrupt level, then the call-
  3119. ;     back routine can allocate memory. For asynchronous calls, call-back routine is
  3120. ;     like a ioCompletion except that A5 will be preserved for the application.
  3121. ; 
  3122.  
  3123. (defrecord DirGetRecordAccessControlParsePB 
  3124.    (qLink :POINTER)
  3125.    (reserved1 :SIGNED-LONG)
  3126.    (reserved2 :SIGNED-LONG)
  3127.    (ioCompletion :POINTER)
  3128.    (ioResult :SIGNED-INTEGER)
  3129.    (saveA5 :SIGNED-LONG)
  3130.    (reqCode :SIGNED-INTEGER)
  3131.    (reserved (:ARRAY :SIGNED-LONG 2))
  3132.    (serverHint :ADDRBLOCK)
  3133.    (dsRefNum :SIGNED-INTEGER)
  3134.    (callID :SIGNED-LONG)
  3135.    (identity :SIGNED-LONG)
  3136.    (gReserved1 :SIGNED-LONG)
  3137.    (gReserved2 :SIGNED-LONG)
  3138.    (gReserved3 :SIGNED-LONG)
  3139.    (clientData :SIGNED-LONG)
  3140.  
  3141.    (aRecord (:POINTER :RECORDID));   -> RecordID to which access control list is sought list is sought  
  3142.    (bReserved :SIGNED-LONG)     ;   -- unused 
  3143.    (cReserved :SIGNED-LONG)     ;   -- unused 
  3144.    (dReserved :SIGNED-LONG)     ;   -- unused 
  3145.    (eachObject :POINTER)        ;  --> 
  3146.    (forCurrentUserOnly :BOOLEAN);  -->  
  3147.    (startingPoint (:POINTER :DSSPEC));  --> starting Point 
  3148.    (includeStartingPoint :BOOLEAN);   -> if true return the record
  3149. ;                                                         specified in starting point 
  3150.    (getBuffer :POINTER)         ;     -> 
  3151.    (getBufferSize :SIGNED-LONG) ;   -> 
  3152.    )
  3153.  
  3154. ; 
  3155. ;     GetAttributeAccessControlGet:
  3156. ;     This call can be done to get back access control list for a attributeType with in a RecordID.
  3157. ;     aRecord -> RecordID to which access control list is sought
  3158. ;     aType    -> Attribute Type to which access controls are sought
  3159. ;     curUserAccMask -> If this is 'true', Access controls for the user specified by
  3160. ;                       the identity parameter will be returned other wise entire list
  3161. ;                       will be returned.
  3162. ;     startingDsObj  -> If this is not nil, list should be started after this object.
  3163. ;     startingPointInclusive -> If staringDsObj is specified, include that in the returned
  3164. ;                               results.
  3165. ; 
  3166. ;     The results will be collected in the 'getBuffer' supplied by the user.
  3167. ;     If buffer can not hold all the data returned 'daMoreData' error will be returned.
  3168. ; 
  3169. ;     If user receives 'noErr' or 'daMoreData', buffer will contain valid results. A user
  3170. ;     can extract the results in the 'getBuffer' by making 'DsGetDNodeAccessControlParse' call.
  3171. ; 
  3172. ;     Results returned for each DSObject will contain DSSpecPtr and accMask.
  3173. ; 
  3174.  
  3175. (defrecord DirGetAttributeAccessControlGetPB 
  3176.    (qLink :POINTER)
  3177.    (reserved1 :SIGNED-LONG)
  3178.    (reserved2 :SIGNED-LONG)
  3179.    (ioCompletion :POINTER)
  3180.    (ioResult :SIGNED-INTEGER)
  3181.    (saveA5 :SIGNED-LONG)
  3182.    (reqCode :SIGNED-INTEGER)
  3183.    (reserved (:ARRAY :SIGNED-LONG 2))
  3184.    (serverHint :ADDRBLOCK)
  3185.    (dsRefNum :SIGNED-INTEGER)
  3186.    (callID :SIGNED-LONG)
  3187.    (identity :SIGNED-LONG)
  3188.    (gReserved1 :SIGNED-LONG)
  3189.    (gReserved2 :SIGNED-LONG)
  3190.    (gReserved3 :SIGNED-LONG)
  3191.    (clientData :SIGNED-LONG)
  3192.  
  3193.    (aRecord (:POINTER :RECORDID));   -> RecordID to which access control list is sought list is sought  
  3194.    (aType (:POINTER :ATTRIBUTETYPE));   -> Attribute Type to which access controls are sought          
  3195.    (cReserved :SIGNED-LONG)     ;   -- unused 
  3196.    (dReserved :SIGNED-LONG)     ;   -- unused 
  3197.    (eResreved :SIGNED-LONG)     ;  --> 
  3198.    (forCurrentUserOnly :BOOLEAN);  -->  
  3199.    (startingPoint (:POINTER :DSSPEC));  --> starting Point 
  3200.    (includeStartingPoint :BOOLEAN);   -> if true return the DsObject
  3201. ;                                                                 specified in starting point 
  3202.    (getBuffer :POINTER)         ;     -> 
  3203.    (getBufferSize :SIGNED-LONG) ;   -> 
  3204.    )
  3205.  
  3206. ;  The Access Control call-back function is defined as follows: 
  3207. (def-mactype :FOREACHATTRIBUTEACCESSCONTROL (find-mactype :POINTER))
  3208. ;  FUNCTION ForEachAttributeAccessControl(clientData: long;
  3209. ;         dsObj: DSSpec; activeDnodeAccMask: AccessMask;
  3210. ;         activeRecordAccMask: AccessMask;
  3211. ;         activeAttributeAccMask: AccessMask): BOOLEAN;
  3212.  
  3213. ; 
  3214. ;     GetAttributeAccessControlParse:
  3215. ;     After an GetAttributeAccessControlGet call has completed,
  3216. ;     call GetAttributeAccessControlParse to parse through the buffer that
  3217. ;     that was filled in GetAttributeAccessControlGet.
  3218. ; 
  3219. ;     'eachObject' will be called each time to return to the client a
  3220. ;     DsObject and a set of three accMasks (three LONGINT words) for that object.
  3221. ;     Acceesmasks returned apply to the dsObject in the callback :
  3222. ;     1. Active Access mask for the DNode Containing the Attribute.
  3223. ;     2. Active Access mask for the Record in the Containing the Attribute.
  3224. ;     3. Active Access mask for the specified Attribute.
  3225. ;     The clientData parameter that you pass in the parameter block will be passed
  3226. ;     to 'eachObject'.  You are free to put anything in clientData - it is intended
  3227. ;     to allow you some way to match the call-back to the original call (example: for; you make more then one aysynchronous GetAttributeAccessControlGet calls and you want to
  3228. ;     associate returned results in some way).
  3229. ; 
  3230. ;     The client should return FALSE from 'eachObject' to continue
  3231. ;     processing of the GetAttributeAccessControlParse request.  Returning TRUE will
  3232. ;     terminate the GetAttributeAccessControlParse request.
  3233. ; 
  3234. ;     For synchronous calls, the call-back routine actually runs as part of the same thread
  3235. ;     of execution as the thread that made the GetAttributeAccessControlParse call.  That means that the
  3236. ;     same low-memory globals, A5, stack, etc. are in effect during the call-back
  3237. ;     that were in effect when the call was made.  Because of this, the call-back
  3238. ;     routine has the same restrictions as the caller of GetAttributeAccessControlParse:
  3239. ;     if GetAttributeAccessControlParse was not called from interrupt level, then the call-
  3240. ;     back routine can allocate memory. For asynchronous calls, call-back routine is
  3241. ;     like a ioCompletion except that A5 will be preserved for the application.
  3242. ; 
  3243.  
  3244. (defrecord DirGetAttributeAccessControlParsePB 
  3245.    (qLink :POINTER)
  3246.    (reserved1 :SIGNED-LONG)
  3247.    (reserved2 :SIGNED-LONG)
  3248.    (ioCompletion :POINTER)
  3249.    (ioResult :SIGNED-INTEGER)
  3250.    (saveA5 :SIGNED-LONG)
  3251.    (reqCode :SIGNED-INTEGER)
  3252.    (reserved (:ARRAY :SIGNED-LONG 2))
  3253.    (serverHint :ADDRBLOCK)
  3254.    (dsRefNum :SIGNED-INTEGER)
  3255.    (callID :SIGNED-LONG)
  3256.    (identity :SIGNED-LONG)
  3257.    (gReserved1 :SIGNED-LONG)
  3258.    (gReserved2 :SIGNED-LONG)
  3259.    (gReserved3 :SIGNED-LONG)
  3260.    (clientData :SIGNED-LONG)
  3261.  
  3262.    (aRecord (:POINTER :RECORDID));   -> RecordID to which access control list is sought list is sought  
  3263.    (aType (:POINTER :ATTRIBUTETYPE));   -> Attribute Type to which access controls are sought          
  3264.    (cReserved :SIGNED-LONG)     ;   -- unused 
  3265.    (dReserved :SIGNED-LONG)     ;   -- unused 
  3266.    (eachObject :POINTER)        ;  --> 
  3267.    (forCurrentUserOnly :BOOLEAN);  -->  
  3268.    (startingPoint (:POINTER :DSSPEC));  --> starting Point 
  3269.    (includeStartingPoint :BOOLEAN);   -> if true return the record
  3270. ;                                                         specified in starting point 
  3271.    (getBuffer :POINTER)         ;     -> 
  3272.    (getBufferSize :SIGNED-LONG) ;   -> 
  3273.    )
  3274.  
  3275. ; 
  3276. ; MapPathNameToDNodeNumber:
  3277. ; This call maps a given PathName within a directory to its DNodeNumber.
  3278. ; 
  3279.  
  3280. (defrecord DirMapPathNameToDNodeNumberPB 
  3281.    (qLink :POINTER)
  3282.    (reserved1 :SIGNED-LONG)
  3283.    (reserved2 :SIGNED-LONG)
  3284.    (ioCompletion :POINTER)
  3285.    (ioResult :SIGNED-INTEGER)
  3286.    (saveA5 :SIGNED-LONG)
  3287.    (reqCode :SIGNED-INTEGER)
  3288.    (reserved (:ARRAY :SIGNED-LONG 2))
  3289.    (serverHint :ADDRBLOCK)
  3290.    (dsRefNum :SIGNED-INTEGER)
  3291.    (callID :SIGNED-LONG)
  3292.    (identity :SIGNED-LONG)
  3293.    (gReserved1 :SIGNED-LONG)
  3294.    (gReserved2 :SIGNED-LONG)
  3295.    (gReserved3 :SIGNED-LONG)
  3296.    (clientData :SIGNED-LONG)
  3297.  
  3298.    (directoryName (:POINTER :DIRECTORYNAME));   --> directory name 
  3299.    (discriminator :DIRDISCRIMINATOR);   --> discriminator 
  3300.    (dNodeNumber :SIGNED-LONG)   ;  <--  dNodenumber to the path 
  3301.    (path (:POINTER :PACKEDPATHNAME));   --> Path Name to be mapped 
  3302.    )
  3303.  
  3304. ; 
  3305. ; PathName in the path field will be mapped to the cooresponding dNodeNumber and
  3306. ; returned in the DNodeNumber field. directoryName and descriminator Fields are
  3307. ; ignored. DSRefNum is used to identify the directory.
  3308. ; 
  3309.  
  3310. ; 
  3311. ; MapDNodeNumberToPathName:
  3312. ; This call will map a given DNodeNumber with in a directory to the
  3313. ; corresponding PathName.
  3314. ; 
  3315.  
  3316. (defrecord DirMapDNodeNumberToPathNamePB 
  3317.    (qLink :POINTER)
  3318.    (reserved1 :SIGNED-LONG)
  3319.    (reserved2 :SIGNED-LONG)
  3320.    (ioCompletion :POINTER)
  3321.    (ioResult :SIGNED-INTEGER)
  3322.    (saveA5 :SIGNED-LONG)
  3323.    (reqCode :SIGNED-INTEGER)
  3324.    (reserved (:ARRAY :SIGNED-LONG 2))
  3325.    (serverHint :ADDRBLOCK)
  3326.    (dsRefNum :SIGNED-INTEGER)
  3327.    (callID :SIGNED-LONG)
  3328.    (identity :SIGNED-LONG)
  3329.    (gReserved1 :SIGNED-LONG)
  3330.    (gReserved2 :SIGNED-LONG)
  3331.    (gReserved3 :SIGNED-LONG)
  3332.    (clientData :SIGNED-LONG)
  3333.  
  3334.    (directoryName (:POINTER :DIRECTORYNAME));   --> directory name 
  3335.    (discriminator :DIRDISCRIMINATOR);   --> discriminator 
  3336.    (dNodeNumber :SIGNED-LONG)   ;   --> dNodenumber to be mapped 
  3337.    (path (:POINTER :PACKEDPATHNAME));  <--  Packed Path Name returned 
  3338.    (lengthOfPathName :SIGNED-INTEGER);   --> length of packed pathName structure
  3339.    )
  3340.  
  3341. ; 
  3342. ; dNodeNumber in the DNodeNumber field will be mapped to the cooresponding
  3343. ; pathName and returned in the PackedPathName field.
  3344. ; lengthOfPathName is to be set the length of pathName structure.
  3345. ; If length of PackedPathName is larger then the lengthOfPathName, kOCEMoreData
  3346. ; OSErr will be returned.
  3347. ; 
  3348.  
  3349. ; 
  3350. ; GetLocalNetworkSpec:
  3351. ; This call will return the Local NetworkSpec. Client should supply
  3352. ; an RString big enough to hold the NetworkSpec.
  3353. ; 
  3354.  
  3355. (defrecord DirGetLocalNetworkSpecPB 
  3356.    (qLink :POINTER)
  3357.    (reserved1 :SIGNED-LONG)
  3358.    (reserved2 :SIGNED-LONG)
  3359.    (ioCompletion :POINTER)
  3360.    (ioResult :SIGNED-INTEGER)
  3361.    (saveA5 :SIGNED-LONG)
  3362.    (reqCode :SIGNED-INTEGER)
  3363.    (reserved (:ARRAY :SIGNED-LONG 2))
  3364.    (serverHint :ADDRBLOCK)
  3365.    (dsRefNum :SIGNED-INTEGER)
  3366.    (callID :SIGNED-LONG)
  3367.    (identity :SIGNED-LONG)
  3368.    (gReserved1 :SIGNED-LONG)
  3369.    (gReserved2 :SIGNED-LONG)
  3370.    (gReserved3 :SIGNED-LONG)
  3371.    (clientData :SIGNED-LONG)
  3372.  
  3373.    (directoryName (:POINTER :DIRECTORYNAME));   --> directory name 
  3374.    (discriminator :DIRDISCRIMINATOR);   --> discriminator 
  3375.    (networkSpec (:POINTER :NETWORKSPEC));  <--  NetworkSpec 
  3376.    )
  3377.  
  3378. ; 
  3379. ; PathName in the path field must be set to nil. internetName should be large
  3380. ; enough to hold the internetName. InterNetname returned indicates path finder's
  3381. ; local internet (configured by administrator).
  3382. ; 
  3383.  
  3384. ; 
  3385. ; GetDNodeInfo:
  3386. ; This call will return the information (internetName and descriptor)
  3387. ; for the given RLI of a DNode.
  3388. ; 
  3389.  
  3390. (defrecord DirGetDNodeInfoPB 
  3391.    (qLink :POINTER)
  3392.    (reserved1 :SIGNED-LONG)
  3393.    (reserved2 :SIGNED-LONG)
  3394.    (ioCompletion :POINTER)
  3395.    (ioResult :SIGNED-INTEGER)
  3396.    (saveA5 :SIGNED-LONG)
  3397.    (reqCode :SIGNED-INTEGER)
  3398.    (reserved (:ARRAY :SIGNED-LONG 2))
  3399.    (serverHint :ADDRBLOCK)
  3400.    (dsRefNum :SIGNED-INTEGER)
  3401.    (callID :SIGNED-LONG)
  3402.    (identity :SIGNED-LONG)
  3403.    (gReserved1 :SIGNED-LONG)
  3404.    (gReserved2 :SIGNED-LONG)
  3405.    (gReserved3 :SIGNED-LONG)
  3406.    (clientData :SIGNED-LONG)
  3407.  
  3408.    (pRLI (:POINTER :PACKEDRLI)) ;   --> packed RLI whose info is requested 
  3409.    (descriptor :SIGNED-LONG)    ;  <--  dNode descriptor 
  3410.    (networkSpec (:POINTER :NETWORKSPEC));  <--  cluster's networkSpec if kIsCluster 
  3411.    )
  3412.  
  3413. ; 
  3414. ; If DnodeNumber is set to a non zero value, path should be set to nil.
  3415. ; if DnodeNumber is set to zero, pathName should point to a packed path name.
  3416. ; internetName should be large enough to hold
  3417. ; the internetName. (If the internetName is same as the one got by
  3418. ; GetLocalInternetName call, it indicates cluster is reachable  without
  3419. ; forwarders, --> Tell me if I am wrong)
  3420. ; 
  3421.  
  3422. ; 
  3423. ; DirCreatePersonalDirectory:
  3424. ; A new  personal directory can be created by specifying an FSSpec for
  3425. ; the file. If a file already exists dupFNErr will be returned. This call is
  3426. ; supported 'synchronous' mode only.
  3427. ; 
  3428.  
  3429. (defrecord DirCreatePersonalDirectoryPB 
  3430.    (qLink :POINTER)
  3431.    (reserved1 :SIGNED-LONG)
  3432.    (reserved2 :SIGNED-LONG)
  3433.    (ioCompletion :POINTER)
  3434.    (ioResult :SIGNED-INTEGER)
  3435.    (saveA5 :SIGNED-LONG)
  3436.    (reqCode :SIGNED-INTEGER)
  3437.    (reserved (:ARRAY :SIGNED-LONG 2))
  3438.    (serverHint :ADDRBLOCK)
  3439.    (dsRefNum :SIGNED-INTEGER)
  3440.    (callID :SIGNED-LONG)
  3441.    (identity :SIGNED-LONG)
  3442.    (gReserved1 :SIGNED-LONG)
  3443.    (gReserved2 :SIGNED-LONG)
  3444.    (gReserved3 :SIGNED-LONG)
  3445.    (clientData :SIGNED-LONG)
  3446.  
  3447.    (fsSpec :FSSPECPTR)          ;   --> FSSpec for the PersonalDirectory 
  3448.    (fdType :OSTYPE)             ;   --> file type for the PersonalDirectory 
  3449.    (fdCreator :OSTYPE)          ;   --> file creator for the PersonalDirectory 
  3450.    )
  3451.  
  3452. ; 
  3453. ; DirOpenPersonalDirectory:
  3454. ; An existing personal directory can be opened using this call.
  3455. ; User can specify the personal directory by FSSpec for the AddressBook file.
  3456. ; 'accessRequested' field specifies open permissions. 'fsRdPerm'  & 'fsRdWrPerm'
  3457. ; are the only accepted open modes for the address book.
  3458. ; When the call completes successfully, a dsRefNum will be returned. The 'dsRefNum'
  3459. ; field is in the DSParamBlockHeader. In addittion 'accessGranted' indicates
  3460. ; actual permission with personal directory is opened and 'features' indicate the capabilty flags
  3461. ; associated with the personal directory.
  3462. ; This call is supported 'synchronous' mode only.
  3463. ; 
  3464.  
  3465. (defrecord DirOpenPersonalDirectoryPB 
  3466.    (qLink :POINTER)
  3467.    (reserved1 :SIGNED-LONG)
  3468.    (reserved2 :SIGNED-LONG)
  3469.    (ioCompletion :POINTER)
  3470.    (ioResult :SIGNED-INTEGER)
  3471.    (saveA5 :SIGNED-LONG)
  3472.    (reqCode :SIGNED-INTEGER)
  3473.    (reserved (:ARRAY :SIGNED-LONG 2))
  3474.    (serverHint :ADDRBLOCK)
  3475.    (dsRefNum :SIGNED-INTEGER)
  3476.    (callID :SIGNED-LONG)
  3477.    (identity :SIGNED-LONG)
  3478.    (gReserved1 :SIGNED-LONG)
  3479.    (gReserved2 :SIGNED-LONG)
  3480.    (gReserved3 :SIGNED-LONG)
  3481.    (clientData :SIGNED-LONG)
  3482.  
  3483.    (fsSpec :FSSPECPTR)          ;   --> Open an existing PersonalDirectory 
  3484.    (accessRequested :CHARACTER) ;   --> Open: permissions Requested(byte)
  3485.    (accessGranted :CHARACTER)   ;   <-- Open: permissions (byte) (Granted)
  3486.    (features :SIGNED-LONG)      ;  <--  features for PersonalDirectory 
  3487.    )
  3488.  
  3489. ; 
  3490. ; DirClosePersonalDirectory: This call lets a client close AddressBook opened by DirOpenPersonalDirectory.
  3491. ; The PersonalDirectory specified by the 'dsRefNum' will be closed.
  3492. ; This call is supported 'synchronous' mode only.
  3493. ; 
  3494.  
  3495. (defrecord DirClosePersonalDirectoryPB 
  3496.    (qLink :POINTER)
  3497.    (reserved1 :SIGNED-LONG)
  3498.    (reserved2 :SIGNED-LONG)
  3499.    (ioCompletion :POINTER)
  3500.    (ioResult :SIGNED-INTEGER)
  3501.    (saveA5 :SIGNED-LONG)
  3502.    (reqCode :SIGNED-INTEGER)
  3503.    (reserved (:ARRAY :SIGNED-LONG 2))
  3504.    (serverHint :ADDRBLOCK)
  3505.    (dsRefNum :SIGNED-INTEGER)
  3506.    (callID :SIGNED-LONG)
  3507.    (identity :SIGNED-LONG)
  3508.    (gReserved1 :SIGNED-LONG)
  3509.    (gReserved2 :SIGNED-LONG)
  3510.    (gReserved3 :SIGNED-LONG)
  3511.    (clientData :SIGNED-LONG)
  3512.    )
  3513.  
  3514. ; 
  3515. ; DirMakePersonalDirectoryRLI: With this call a client can make an RLI
  3516. ; for an PersonalDirectory opened by DirOpenPersonalDirectory Call.
  3517. ; A packed RLI is created for the PersonalDirectory specified by the 'dsRefNum'.
  3518. ; If a client has a need to make the AddressBook reference to persistent
  3519. ; acrross boots it should make use of this call. In the current implementaion
  3520. ; PackedRLI has an embeeded System7.0 'alias'. If in later time
  3521. ; If client has a need to make reference to the AddressBook, it must use
  3522. ; ADAPLibrary call 'DUExtractAlias' and resole the 'alias' to 'FSSpec' and
  3523. ; make DirOpenPersonalDirectory call to get a 'dsRefNum'.
  3524. ;   'fromFSSpec'            FSPecPtr from which relative alias to be created. If nil,
  3525. ;                         absolute alias is created.
  3526. ;  'pRLIBufferSize' indicates the size of buffer pointed by 'pRLI'
  3527. ;  'pRLISize'    indicates the actual length of 'pRLI'. If the call
  3528. ;                         fails with 'kOCEMoreData' error a client can reissue
  3529. ;                     this call with a larger buffer of this length.
  3530. ;   'pRLI' is pointer to the buffer in which 'PackedRLI' is
  3531. ;   returned.
  3532. ; This call is supported in 'synchronous' mode only.
  3533. ; 
  3534.  
  3535. (defrecord DirMakePersonalDirectoryRLIPB 
  3536.    (qLink :POINTER)
  3537.    (reserved1 :SIGNED-LONG)
  3538.    (reserved2 :SIGNED-LONG)
  3539.    (ioCompletion :POINTER)
  3540.    (ioResult :SIGNED-INTEGER)
  3541.    (saveA5 :SIGNED-LONG)
  3542.    (reqCode :SIGNED-INTEGER)
  3543.    (reserved (:ARRAY :SIGNED-LONG 2))
  3544.    (serverHint :ADDRBLOCK)
  3545.    (dsRefNum :SIGNED-INTEGER)
  3546.    (callID :SIGNED-LONG)
  3547.    (identity :SIGNED-LONG)
  3548.    (gReserved1 :SIGNED-LONG)
  3549.    (gReserved2 :SIGNED-LONG)
  3550.    (gReserved3 :SIGNED-LONG)
  3551.    (clientData :SIGNED-LONG)
  3552.  
  3553.    (fromFSSpec :FSSPECPTR)      ;   --> FSSpec for creating relative alia 
  3554.    (pRLIBufferSize :SIGNED-INTEGER);   --> Length of 'pRLI' buffer 
  3555.    (pRLISize :SIGNED-INTEGER)   ;  <--  Length of actual 'pRLI' 
  3556.    (pRLI (:POINTER :PACKEDRLI)) ;  <--  pRLI for the specified AddressBook 
  3557.    )
  3558.  
  3559. ; ****************************************************************************
  3560. ; The calls described below apply only for DSAM Drivers:
  3561. ; 
  3562. ; The following three calls provide capability to Install/Remove a DSAM at RunTime.
  3563. ;     DirAddDSAM
  3564. ;     DirRemoveDSAM
  3565. ;     DirInstantiateDSAM
  3566. ; 
  3567. ; The following two calls provide capability to Install/Remove a DSAM Directory at RunTime.
  3568. ;     DirAddDSAMDirectory
  3569. ;     DirRemoveDirectory
  3570. ; 
  3571. ; DirGetDirectoryIcon call is used by clients to get any special icon associated
  3572. ; with a DSAM directory.
  3573. ; 
  3574. ; ****************************************************************************
  3575.  
  3576. ; 
  3577. ; DirAddDSAM: This call can be used to inorm the availability of a DSAM file
  3578. ; after discovering the DSAM file.
  3579. ;     dsamName -> is generic DSAM name e.g. Untitled X.500 directory
  3580. ;     dsamSignature -> could be generic DSAM kind e.g. 'X500'.
  3581. ;     fsSpec -> is the FileSpec for the file containing DSAM resources.
  3582. ; If the call is successfull 'DSAMRecordCID' will be returned. If the
  3583. ; call returns 'daDSAMRecordCIDExists', record was already there and
  3584. ; 'dsamRecordCID' will be returned.
  3585. ; This call can be done only in synchronous mode.
  3586. ; 
  3587.  
  3588. (defrecord DirAddDSAMPB 
  3589.    (qLink :POINTER)
  3590.    (reserved1 :SIGNED-LONG)
  3591.    (reserved2 :SIGNED-LONG)
  3592.    (ioCompletion :POINTER)
  3593.    (ioResult :SIGNED-INTEGER)
  3594.    (saveA5 :SIGNED-LONG)
  3595.    (reqCode :SIGNED-INTEGER)
  3596.    (reserved (:ARRAY :SIGNED-LONG 2))
  3597.    (serverHint :ADDRBLOCK)
  3598.    (dsRefNum :SIGNED-INTEGER)
  3599.    (callID :SIGNED-LONG)
  3600.    (identity :SIGNED-LONG)
  3601.    (gReserved1 :SIGNED-LONG)
  3602.    (gReserved2 :SIGNED-LONG)
  3603.    (gReserved3 :SIGNED-LONG)
  3604.    (clientData :SIGNED-LONG)
  3605.  
  3606.    (dsamRecordCID :CREATIONID)  ;  <--  CreationID for the DSAM record 
  3607.    (dsamName (:POINTER :RSTRING));   --> DSAM name 
  3608.    (dsamKind :SIGNED-LONG)      ;   --> DSAM kind 
  3609.    (fsSpec :FSSPECPTR)          ;   --> FSSpec for the file containing DSAM 
  3610.    )
  3611.  
  3612. ; 
  3613. ; DirInstantiateDSAM: This call should be used by the DSAM driver in response
  3614. ; Driver Open call to indicate the toolbox about the availability of the DSAM.
  3615. ;     dsamName -> is generic DSAM name e.g. Untitled X.500 directory
  3616. ;     dsamKind -> could be generic DSAM kind e.g. 'X500'.
  3617. ;     dsamData -> pointer to private DSAMData. This will be paased back to the DSAM
  3618. ;     when the DSAM functions (DSAMDirProc, DSAMDirParseProc, DSAMAuthProc) are called.
  3619. ;     DSAM should already be setup using DirAddDSAM call.
  3620. ;     DSAMDirProc -> This procedure will be called when  any directory service
  3621. ;     call intended for the DSAM (other then parse calls)
  3622. ;     DSAMDirParseProc -> This procedure will be called when any of the parse calls
  3623. ;     are called.
  3624. ;     DSAMAuthProc -> This procedure will be called when any of the Authentication Calls
  3625. ;     are made to the DSAM. If the DSAM does not support authentication, this can be nil.
  3626. ; This call can be done only in synchronous mode.
  3627. ; 
  3628.  
  3629. (defrecord DirInstantiateDSAMPB 
  3630.    (qLink :POINTER)
  3631.    (reserved1 :SIGNED-LONG)
  3632.    (reserved2 :SIGNED-LONG)
  3633.    (ioCompletion :POINTER)
  3634.    (ioResult :SIGNED-INTEGER)
  3635.    (saveA5 :SIGNED-LONG)
  3636.    (reqCode :SIGNED-INTEGER)
  3637.    (reserved (:ARRAY :SIGNED-LONG 2))
  3638.    (serverHint :ADDRBLOCK)
  3639.    (dsRefNum :SIGNED-INTEGER)
  3640.    (callID :SIGNED-LONG)
  3641.    (identity :SIGNED-LONG)
  3642.    (gReserved1 :SIGNED-LONG)
  3643.    (gReserved2 :SIGNED-LONG)
  3644.    (gReserved3 :SIGNED-LONG)
  3645.    (clientData :SIGNED-LONG)
  3646.  
  3647.    (dsamName (:POINTER :RSTRING));   --> dsamName name 
  3648.    (dsamKind :SIGNED-LONG)      ;   --> DSAMKind 
  3649.    (dsamData :POINTER)          ;   --> dsamData  
  3650.    (dsamDirProc :POINTER)       ;   --> of type DSAMDirProc: for directory service calls 
  3651.    (dsamDirParseProc :POINTER)  ;   --> of type DSAMDirParseProc: for directory service parse calls 
  3652.    (dsamAuthProc :POINTER)      ;   --> of type DSAMAuthProc: for authetication service calls 
  3653.    )
  3654.  
  3655. ; 
  3656. ; DirRemoveDSAM: This call can be used to remove  a DSAM file from the OCE Setup.
  3657. ;     dsamRecordCID -> is the creationID of the DSAM record.
  3658. ; This call can be made only in synchronous mode.
  3659. ; 
  3660.  
  3661. (defrecord DirRemoveDSAMPB 
  3662.    (qLink :POINTER)
  3663.    (reserved1 :SIGNED-LONG)
  3664.    (reserved2 :SIGNED-LONG)
  3665.    (ioCompletion :POINTER)
  3666.    (ioResult :SIGNED-INTEGER)
  3667.    (saveA5 :SIGNED-LONG)
  3668.    (reqCode :SIGNED-INTEGER)
  3669.    (reserved (:ARRAY :SIGNED-LONG 2))
  3670.    (serverHint :ADDRBLOCK)
  3671.    (dsRefNum :SIGNED-INTEGER)
  3672.    (callID :SIGNED-LONG)
  3673.    (identity :SIGNED-LONG)
  3674.    (gReserved1 :SIGNED-LONG)
  3675.    (gReserved2 :SIGNED-LONG)
  3676.    (gReserved3 :SIGNED-LONG)
  3677.    (clientData :SIGNED-LONG)
  3678.  
  3679.    (dsamRecordCID :CREATIONID)  ;  <--  CreationID for the DSAM record 
  3680.    )
  3681.  
  3682. ; 
  3683. ; DirAddDSAMDirectory: This call can be used to inorm the availability of a DSAM directory.
  3684. ;     dsamRecordCID ->  recordID for the DSAM serving this directory
  3685. ;     directoryName ->  name of the directory
  3686. ;     discriminator -> discriminator for the directory
  3687. ;     directoryRecordCID -> If the call is successful, creationID for the record will
  3688. ;                             be returned.
  3689. ; 
  3690.  
  3691. (defrecord DirAddDSAMDirectoryPB 
  3692.    (qLink :POINTER)
  3693.    (reserved1 :SIGNED-LONG)
  3694.    (reserved2 :SIGNED-LONG)
  3695.    (ioCompletion :POINTER)
  3696.    (ioResult :SIGNED-INTEGER)
  3697.    (saveA5 :SIGNED-LONG)
  3698.    (reqCode :SIGNED-INTEGER)
  3699.    (reserved (:ARRAY :SIGNED-LONG 2))
  3700.    (serverHint :ADDRBLOCK)
  3701.    (dsRefNum :SIGNED-INTEGER)
  3702.    (callID :SIGNED-LONG)
  3703.    (identity :SIGNED-LONG)
  3704.    (gReserved1 :SIGNED-LONG)
  3705.    (gReserved2 :SIGNED-LONG)
  3706.    (gReserved3 :SIGNED-LONG)
  3707.    (clientData :SIGNED-LONG)
  3708.  
  3709.    (dsamRecordCID :CREATIONID)  ;   --> CreationID for the DSAM record 
  3710.    (directoryName (:POINTER :DIRECTORYNAME));   --> directory name 
  3711.    (discriminator :DIRDISCRIMINATOR);   --> dir discriminator 
  3712.    (features :SIGNED-LONG)      ;   --> capabilty flags for the directory 
  3713.    (directoryRecordCID :CREATIONID);  <--  creationID for the directory record 
  3714.    )
  3715.  
  3716. ; 
  3717. ; DirRemoveDirectory: This call can be used to inform the toolbox that
  3718. ; directory specified by 'directoryRecordCID'
  3719. ; 
  3720.  
  3721. (defrecord DirRemoveDirectoryPB 
  3722.    (qLink :POINTER)
  3723.    (reserved1 :SIGNED-LONG)
  3724.    (reserved2 :SIGNED-LONG)
  3725.    (ioCompletion :POINTER)
  3726.    (ioResult :SIGNED-INTEGER)
  3727.    (saveA5 :SIGNED-LONG)
  3728.    (reqCode :SIGNED-INTEGER)
  3729.    (reserved (:ARRAY :SIGNED-LONG 2))
  3730.    (serverHint :ADDRBLOCK)
  3731.    (dsRefNum :SIGNED-INTEGER)
  3732.    (callID :SIGNED-LONG)
  3733.    (identity :SIGNED-LONG)
  3734.    (gReserved1 :SIGNED-LONG)
  3735.    (gReserved2 :SIGNED-LONG)
  3736.    (gReserved3 :SIGNED-LONG)
  3737.    (clientData :SIGNED-LONG)
  3738.  
  3739.    (directoryRecordCID :CREATIONID);   --> creationID for the directory record 
  3740.    )
  3741.  
  3742. ; 
  3743. ;     DSGetExtendedDirectoriesInfo::  This call can be used to get
  3744. ;     the information of various foreign directories supported.
  3745. ;     Typically a DE Template  may make this call to create a
  3746. ;     Address template or a Gateway may make this call to findout
  3747. ;     directory name space in which MSAM may would support.
  3748. ;     Client will supply a buffer pointed by 'bufferPtr' of size 'bufferLength'.
  3749. ;     When the call completes with 'daMoreData' error, client can examine 'totalEntries'
  3750. ;     returned and reissue the call with increaing buffer.
  3751. ;     Toolbox will findout the private information of each of the Foreign Directories
  3752. ;     by polling DSAM's, Gateways, and MnMServers. The Information returned
  3753. ;     for each directory will be packed in the format:
  3754. ; 
  3755. ;     EachDirectoryData = RECORD
  3756. ;         pRLI: PackedRLIPtr;                /  packed RLI for the directory
  3757. ;         entnType: OSType;                /  Entn Type
  3758. ;         hasMailSlot: LONGINT;            /  If this directory has mail slot this will be 1 otherwise zero
  3759. ;         RealName: ProtoRString;            /  Packed RString for Real Name (padded to even boundary)
  3760. ;         comment: ProtoRString;            /  Packed RString holding any comment for Display (padded to even boundary)
  3761. ;         length: LONGINT;                /  data length
  3762. ;         data CHAR[1..length];            /  data padded to even boundary
  3763. ;         END;
  3764. ; 
  3765. ; 
  3766. ;      myData = RECORD
  3767. ;         data: EacDirectoryData [1..numberOfEntries];    / data packed in the above format
  3768. ;         END;
  3769. ;  
  3770.  
  3771. (defrecord DirGetExtendedDirectoriesInfoPB 
  3772.    (qLink :POINTER)
  3773.    (reserved1 :SIGNED-LONG)
  3774.    (reserved2 :SIGNED-LONG)
  3775.    (ioCompletion :POINTER)
  3776.    (ioResult :SIGNED-INTEGER)
  3777.    (saveA5 :SIGNED-LONG)
  3778.    (reqCode :SIGNED-INTEGER)
  3779.    (reserved (:ARRAY :SIGNED-LONG 2))
  3780.    (serverHint :ADDRBLOCK)
  3781.    (dsRefNum :SIGNED-INTEGER)
  3782.    (callID :SIGNED-LONG)
  3783.    (identity :SIGNED-LONG)
  3784.    (gReserved1 :SIGNED-LONG)
  3785.    (gReserved2 :SIGNED-LONG)
  3786.    (gReserved3 :SIGNED-LONG)
  3787.    (clientData :SIGNED-LONG)
  3788.  
  3789.    (buffer :POINTER)            ;   --> Pointer to a buufer where data will be returned 
  3790.    (bufferSize :SIGNED-LONG)    ;   --> Length of the buffer, Length of actual data will be returned here 
  3791.    (totalEntries :SIGNED-LONG)  ;  <--  Total Number of Directories found 
  3792.    (actualEntries :SIGNED-LONG) ;  <--  Total Number of Directories entries returned 
  3793.    )
  3794.  
  3795. ; 
  3796. ; DirGetDirectoryIconPB: With this call a client can find out about
  3797. ; the icons supported by the Directory.
  3798. ; Both ADAP and PersonalDirectory will not support this call for now.
  3799. ; A DSAM can support a call so that DE Extension can use this
  3800. ; call to find appropriate Icons.
  3801. ; 
  3802.  
  3803. (defrecord DirGetDirectoryIconPB 
  3804.    (qLink :POINTER)
  3805.    (reserved1 :SIGNED-LONG)
  3806.    (reserved2 :SIGNED-LONG)
  3807.    (ioCompletion :POINTER)
  3808.    (ioResult :SIGNED-INTEGER)
  3809.    (saveA5 :SIGNED-LONG)
  3810.    (reqCode :SIGNED-INTEGER)
  3811.    (reserved (:ARRAY :SIGNED-LONG 2))
  3812.    (serverHint :ADDRBLOCK)
  3813.    (dsRefNum :SIGNED-INTEGER)
  3814.    (callID :SIGNED-LONG)
  3815.    (identity :SIGNED-LONG)
  3816.    (gReserved1 :SIGNED-LONG)
  3817.    (gReserved2 :SIGNED-LONG)
  3818.    (gReserved3 :SIGNED-LONG)
  3819.    (clientData :SIGNED-LONG)
  3820.  
  3821.    (pRLI (:POINTER :PACKEDRLI)) ;   --> packed RLI for the directory 
  3822.    (iconType :OSTYPE)           ;   --> Type of Icon requested 
  3823.    (iconBuffer :POINTER)        ;   --> Buffer to hold Icon Data 
  3824.    (bufferSize :SIGNED-LONG)    ;   <-> size of buffer to hold icon data 
  3825.    )
  3826.  
  3827. ; 
  3828. ; DirGetOCESetupRefNum: This call will return 'dsRefnum' for the OCE Setup PersonalDirectory
  3829. ; and oceSetupRecordCID for the oceSetup Record.
  3830. ; Clients interested in manipulating OCE Setup PersonalDirectory directly should
  3831. ; make this call to get 'dsRefNum'.
  3832. ; 'dsRefNum' will be returned in the standard field in the AuthDirParamHeader.
  3833. ; 
  3834.  
  3835. (defrecord DirGetOCESetupRefNumPB 
  3836.    (qLink :POINTER)
  3837.    (reserved1 :SIGNED-LONG)
  3838.    (reserved2 :SIGNED-LONG)
  3839.    (ioCompletion :POINTER)
  3840.    (ioResult :SIGNED-INTEGER)
  3841.    (saveA5 :SIGNED-LONG)
  3842.    (reqCode :SIGNED-INTEGER)
  3843.    (reserved (:ARRAY :SIGNED-LONG 2))
  3844.    (serverHint :ADDRBLOCK)
  3845.    (dsRefNum :SIGNED-INTEGER)
  3846.    (callID :SIGNED-LONG)
  3847.    (identity :SIGNED-LONG)
  3848.    (gReserved1 :SIGNED-LONG)
  3849.    (gReserved2 :SIGNED-LONG)
  3850.    (gReserved3 :SIGNED-LONG)
  3851.    (clientData :SIGNED-LONG)
  3852.  
  3853.    (oceSetupRecordCID :CREATIONID);  --> creationID for the directory record 
  3854.    )
  3855.  
  3856. ; ***************************************************************************
  3857. ;  Directory and Authentication control blocks and operation definitions 
  3858.  
  3859. (defrecord AuthParamBlock 
  3860.    (:variant 
  3861.       ((header :AUTHDIRPARAMHEADER))
  3862.       ((bindIdentityPB :AUTHBINDSPECIFICIDENTITYPB))
  3863.       ((unbindIdentityPB :AUTHUNBINDSPECIFICIDENTITYPB))
  3864.       ((resolveCreationIDPB :AUTHRESOLVECREATIONIDPB))
  3865.       ((getIdentityInfoPB :AUTHGETSPECIFICIDENTITYINFOPB))
  3866.       ((addKeyPB :AUTHADDKEYPB))
  3867.       ((changeKeyPB :AUTHCHANGEKEYPB))
  3868.       ((deleteKeyPB :AUTHDELETEKEYPB))
  3869.       ((passwordToKeyPB :AUTHPASSWORDTOKEYPB))
  3870.       ((getCredentialsPB :AUTHGETCREDENTIALSPB))
  3871.       ((decryptCredentialsPB :AUTHDECRYPTCREDENTIALSPB))
  3872.       ((makeChallengePB :AUTHMAKECHALLENGEPB))
  3873.       ((makeReplyPB :AUTHMAKEREPLYPB))
  3874.       ((verifyReplyPB :AUTHVERIFYREPLYPB))
  3875.       ((getUTCTimePB :AUTHGETUTCTIMEPB))
  3876.       ((makeProxyPB :AUTHMAKEPROXYPB))
  3877.       ((tradeProxyForCredentialsPB :AUTHTRADEPROXYFORCREDENTIALSPB))
  3878.       ((getLocalIdentityPB :AUTHGETLOCALIDENTITYPB))
  3879.       ((unLockLocalIdentityPB :AUTHUNLOCKLOCALIDENTITYPB))
  3880.       ((lockLocalIdentityPB :AUTHLOCKLOCALIDENTITYPB))
  3881.       ((localIdentityQInstallPB :AUTHADDTOLOCALIDENTITYQUEUEPB))
  3882.       ((localIdentityQRemovePB :AUTHREMOVEFROMLOCALIDENTITYQUEUEPB))
  3883.       ((setupLocalIdentityPB :AUTHSETUPLOCALIDENTITYPB))
  3884.       ((changeLocalIdentityPB :AUTHCHANGELOCALIDENTITYPB))
  3885.       ((removeLocalIdentityPB :AUTHREMOVELOCALIDENTITYPB))
  3886.       ((setupDirectoryIdentityPB :OCESETUPADDDIRECTORYINFOPB))
  3887.       ((changeDirectoryIdentityPB :OCESETUPCHANGEDIRECTORYINFOPB))
  3888.       ((removeDirectoryIdentityPB :OCESETUPREMOVEDIRECTORYINFOPB))
  3889.       ((getDirectoryIdentityInfoPB :OCESETUPGETDIRECTORYINFOPB))
  3890.       ))
  3891.  
  3892. (def-mactype :AUTHPARAMBLOCKPTR (find-mactype :POINTER))
  3893.  
  3894. (defrecord DirParamBlock 
  3895.    (:variant 
  3896.       ((header :AUTHDIRPARAMHEADER))
  3897.       ((addRecordPB :DIRADDRECORDPB))
  3898.       ((deleteRecordPB :DIRDELETERECORDPB))
  3899.       ((enumerateGetPB :DIRENUMERATEGETPB))
  3900.       ((enumerateParsePB :DIRENUMERATEPARSEPB))
  3901.       ((findRecordGetPB :DIRFINDRECORDGETPB))
  3902.       ((findRecordParsePB :DIRFINDRECORDPARSEPB))
  3903.       ((lookupGetPB :DIRLOOKUPGETPB))
  3904.       ((lookupParsePB :DIRLOOKUPPARSEPB))
  3905.       ((addAttributeValuePB :DIRADDATTRIBUTEVALUEPB))
  3906.       ((deleteAttributeTypePB :DIRDELETEATTRIBUTETYPEPB))
  3907.       ((deleteAttributeValuePB :DIRDELETEATTRIBUTEVALUEPB))
  3908.       ((changeAttributeValuePB :DIRCHANGEATTRIBUTEVALUEPB))
  3909.       ((verifyAttributeValuePB :DIRVERIFYATTRIBUTEVALUEPB))
  3910.       ((findValuePB :DIRFINDVALUEPB))
  3911.       ((enumeratePseudonymGetPB :DIRENUMERATEPSEUDONYMGETPB))
  3912.       ((enumeratePseudonymParsePB :DIRENUMERATEPSEUDONYMPARSEPB))
  3913.       ((addPseudonymPB :DIRADDPSEUDONYMPB))
  3914.       ((deletePseudonymPB :DIRDELETEPSEUDONYMPB))
  3915.       ((addAliasPB :DIRADDALIASPB))
  3916.       ((enumerateAttributeTypesGetPB :DIRENUMERATEATTRIBUTETYPESGETPB))
  3917.       ((enumerateAttributeTypesParsePB :DIRENUMERATEATTRIBUTETYPESPARSEPB))
  3918.       ((getNameAndTypePB :DIRGETNAMEANDTYPEPB))
  3919.       ((setNameAndTypePB :DIRSETNAMEANDTYPEPB))
  3920.       ((getRecordMetaInfoPB :DIRGETRECORDMETAINFOPB))
  3921.       ((getDNodeMetaInfoPB :DIRGETDNODEMETAINFOPB))
  3922.       ((getDirectoryInfoPB :DIRGETDIRECTORYINFOPB))
  3923.       ((getDNodeAccessControlGetPB :DIRGETDNODEACCESSCONTROLGETPB))
  3924.       ((getDNodeAccessControlParsePB :DIRGETDNODEACCESSCONTROLPARSEPB))
  3925.       ((getRecordAccessControlGetPB :DIRGETRECORDACCESSCONTROLGETPB))
  3926.       ((getRecordAccessControlParsePB :DIRGETRECORDACCESSCONTROLPARSEPB))
  3927.       ((getAttributeAccessControlGetPB :DIRGETATTRIBUTEACCESSCONTROLGETPB))
  3928.       ((getAttributeAccessControlParsePB :DIRGETATTRIBUTEACCESSCONTROLPARSEPB))
  3929.       ((enumerateDirectoriesGetPB :DIRENUMERATEDIRECTORIESGETPB))
  3930.       ((enumerateDirectoriesParsePB :DIRENUMERATEDIRECTORIESPARSEPB))
  3931.       ((addADAPDirectoryPB :DIRADDADAPDIRECTORYPB))
  3932.       ((removeDirectoryPB :DIRREMOVEDIRECTORYPB))
  3933.       ((netSearchADAPDirectoriesGetPB :DIRNETSEARCHADAPDIRECTORIESGETPB))
  3934.       ((netSearchADAPDirectoriesParsePB :DIRNETSEARCHADAPDIRECTORIESPARSEPB))
  3935.       ((findADAPDirectoryByNetSearchPB :DIRFINDADAPDIRECTORYBYNETSEARCHPB))
  3936.       ((mapDNodeNumberToPathNamePB :DIRMAPDNODENUMBERTOPATHNAMEPB))
  3937.       ((mapPathNameToDNodeNumberPB :DIRMAPPATHNAMETODNODENUMBERPB))
  3938.       ((getLocalNetworkSpecPB :DIRGETLOCALNETWORKSPECPB))
  3939.       ((getDNodeInfoPB :DIRGETDNODEINFOPB))
  3940.  
  3941. ;  Calls For PersonalDirectoryies 
  3942.       ((createPersonalDirectoryPB :DIRCREATEPERSONALDIRECTORYPB))
  3943.       ((openPersonalDirectoryPB :DIROPENPERSONALDIRECTORYPB))
  3944.       ((closePersonalDirectoryPB :DIRCLOSEPERSONALDIRECTORYPB))
  3945.       ((makePersonalDirectoryRLIPB :DIRMAKEPERSONALDIRECTORYRLIPB))
  3946.  
  3947. ;  Calls For DSAM's 
  3948.       ((addDSAMPB :DIRADDDSAMPB))
  3949.       ((instantiateDSAMPB :DIRINSTANTIATEDSAMPB))
  3950.       ((removeDSAMPB :DIRREMOVEDSAMPB))
  3951.       ((addDSAMDirectoryPB :DIRADDDSAMDIRECTORYPB))
  3952.       ((getExtendedDirectoriesInfoPB :DIRGETEXTENDEDDIRECTORIESINFOPB))
  3953.       ((getDirectoryIconPB :DIRGETDIRECTORYICONPB))
  3954.  
  3955. ;  Call to dsRefNum for System(Setup: OCE) PersonalDirectory 
  3956.       ((DirGetOCESetupRefNumPB :DIRGETOCESETUPREFNUMPB))
  3957.  
  3958. ;  Abort a aysnchronous call 
  3959.       ((abortPB :DIRABORTPB))
  3960.       ))
  3961.  
  3962. (def-mactype :DIRPARAMBLOCKPTR (find-mactype :POINTER))
  3963.  
  3964. (def-mactype :DSAMDIRPROC (find-mactype :POINTER))
  3965. ;  FUNCTION DSAMDirProc(
  3966. ;         dsamData: Ptr; paramBlock: DirParamBlockPtr; async: BOOLEAN): OSErr;
  3967. (def-mactype :DSAMDIRPARSEPROC (find-mactype :POINTER))
  3968. ;  FUNCTION DSAMDirParseProc(
  3969. ;         dsamData: Ptr; paramBlock: DirParamBlockPtr; async: BOOLEAN): OSErr;
  3970. (def-mactype :DSAMAUTHPROC (find-mactype :POINTER))
  3971. ;  FUNCTION DSAMAuthProc(
  3972. ;         dsamData: Ptr; pb: AuthParamBlockPtr; async: BOOLEAN): OSErr;
  3973.  
  3974. ; ***********************************************************
  3975. ; 
  3976. ; These are the selector values used after the trap dispatch to determine just
  3977. ; what call the client made to my toolbox.  These bear no relationship to the
  3978. ; procedure numbers used in the client-to-server protocol.
  3979. ; 
  3980.  
  3981. ;  Note:  $21C, $21D are used internally
  3982. ;  
  3983.  
  3984. (defconstant $kAuthBindSpecificIdentity #X200)
  3985. (defconstant $kAuthUnbindSpecificIdentity #X201)
  3986. (defconstant $kAuthResolveCreationID #X202)
  3987. (defconstant $kAuthGetSpecificIdentityInfo #X203)
  3988. (defconstant $kAuthGetLocalIdentity #X204)
  3989.  
  3990. (defconstant $kAuthAddToLocalIdentityQueue #X205)
  3991. (defconstant $kAuthRemoveFromLocalIdentityQueue #X206)
  3992.  
  3993. (defconstant $kAuthAddKey #X207)
  3994. (defconstant $kAuthChangeKey #X208)
  3995. (defconstant $kAuthDeleteKey #X209)
  3996. (defconstant $kAuthPasswordToKey #X20A)
  3997.  
  3998. (defconstant $kAuthGetCredentials #X20B)
  3999. (defconstant $kAuthDecryptCredentials #X20C)
  4000.  
  4001. (defconstant $kOCESetupRemoveDirectoryInfo #X20D)
  4002. (defconstant $kOCESetupGetDirectoryInfo #X20E)
  4003.  
  4004. (defconstant $kAuthMakeChallenge #X20F)
  4005. (defconstant $kAuthMakeReply #X210)
  4006. (defconstant $kAuthVerifyReply #X211)
  4007. (defconstant $kAuthMakeProxy #X212)
  4008. (defconstant $kAuthTradeProxyForCredentials #X213)
  4009.  
  4010. (defconstant $kAuthUnlockLocalIdentity #X214)
  4011. (defconstant $kAuthLockLocalIdentity #X215)
  4012. (defconstant $kAuthSetupLocalIdentity #X216)
  4013.  
  4014. (defconstant $kAuthChangeLocalIdentity #X217)
  4015. (defconstant $kAuthRemoveLocalIdentity #X218)
  4016. (defconstant $kOCESetupAddDirectoryInfo #X219)
  4017.  
  4018. (defconstant $kAuthGetUTCTime #X21A)
  4019.  
  4020. (defconstant $kOCESetupChangeDirectoryInfo #X21B)
  4021.  
  4022. ;  $100 is used as private command 
  4023.  
  4024. (defconstant $kDirEnumerateParse #X101)
  4025. (defconstant $kDirLookupParse #X102)
  4026.  
  4027. (defconstant $kDirEnumerateAttributeTypesParse #X103)
  4028. (defconstant $kDirEnumeratePseudonymParse #X104)
  4029. (defconstant $kDirNetSearchADAPDirectoriesParse #X105)
  4030. (defconstant $kDirEnumerateDirectoriesParse #X106)
  4031.  
  4032. (defconstant $kDirFindADAPDirectoryByNetSearch #X107)
  4033. (defconstant $kDirNetSearchADAPDirectoriesGet #X108)
  4034.  
  4035. (defconstant $kDirAddRecord #X109)
  4036. (defconstant $kDirDeleteRecord #X10A)
  4037. (defconstant $kDirAddAttributeValue #X10B)
  4038. (defconstant $kDirDeleteAttributeValue #X10C)
  4039. (defconstant $kDirChangeAttributeValue #X10D)
  4040. (defconstant $kDirVerifyAttributeValue #X10E)
  4041. (defconstant $kDirAddPseudonym #X10F)
  4042. (defconstant $kDirDeletePseudonym #X110)
  4043. (defconstant $kDirEnumerateGet #X111)
  4044. (defconstant $kDirEnumerateAttributeTypesGet #X112)
  4045. (defconstant $kDirEnumeratePseudonymGet #X113)
  4046. (defconstant $kDirGetNameAndType #X114)
  4047. (defconstant $kDirSetNameAndType #X115)
  4048.  
  4049. (defconstant $kDirGetRecordMetaInfo #X116)
  4050. (defconstant $kDirLookupGet #X117)
  4051.  
  4052. (defconstant $kDirGetDNodeMetaInfo #X118)
  4053. (defconstant $kDirGetDirectoryInfo #X119)
  4054. (defconstant $kDirEnumerateDirectoriesGet #X11A)
  4055.  
  4056. (defconstant $kDirAbort #X11B)
  4057. (defconstant $kDirAddAlias #X11C)
  4058.  
  4059. (defconstant $kDirAddDSAM #X11D)
  4060. (defconstant $kDirOpenPersonalDirectory #X11E)
  4061. (defconstant $kDirCreatePersonalDirectory #X11F)
  4062. (defconstant $kDirRemoveDSAM #X120)
  4063. (defconstant $kDirGetDirectoryIcon #X121)
  4064.  
  4065. (defconstant $kDirMapPathNameToDNodeNumber #X122)
  4066. (defconstant $kDirMapDNodeNumberToPathName #X123)
  4067.  
  4068. (defconstant $kDirGetLocalNetworkSpec #X124)
  4069. (defconstant $kDirGetDNodeInfo #X125)
  4070. (defconstant $kDirFindValue #X126)
  4071. (defconstant $kDirInstantiateDSAM #X127)
  4072. (defconstant $kDirGetOCESetupRefNum #X128)
  4073.  
  4074. (defconstant $kDirGetDNodeAccessControlGet #X12A)
  4075. (defconstant $kDirGetRecordAccessControlGet #X12C)
  4076. (defconstant $kDirGetAttributeAccessControlGet #X12E)
  4077. (defconstant $kDirGetDNodeAccessControlParse #X12F)
  4078. (defconstant $kDirDeleteAttributeType #X130)
  4079.  
  4080. (defconstant $kDirClosePersonalDirectory #X131)
  4081. (defconstant $kDirMakePersonalDirectoryRLI #X132)
  4082.  
  4083. (defconstant $kDirAddDSAMDirectory #X133)
  4084. (defconstant $kDirGetRecordAccessControlParse #X134)
  4085. (defconstant $kDirRemoveDirectory #X135)
  4086. (defconstant $kDirGetExtendedDirectoriesInfo #X136)
  4087.  
  4088. (defconstant $kDirAddADAPDirectory #X137)
  4089. (defconstant $kDirGetAttributeAccessControlParse #X138)
  4090.  
  4091. (defconstant $kDirFindRecordGet #X140)
  4092. (defconstant $kDirFindRecordParse #X141)
  4093.  
  4094.  
  4095. (deftrap _authbindspecificidentity ((paramblock (:pointer :authparamblock)) (async :boolean))
  4096.    (:stack :signed-integer)
  4097.    (:stack-trap #xAA5E paramblock async (512 :signed-integer)))
  4098.  
  4099. (deftrap _authunbindspecificidentity ((paramblock (:pointer :authparamblock)) (async :boolean))
  4100.    (:stack :signed-integer)
  4101.    (:stack-trap #xAA5E paramblock async (513 :signed-integer)))
  4102.  
  4103. (deftrap _authresolvecreationid ((paramblock (:pointer :authparamblock)) (async :boolean))
  4104.    (:stack :signed-integer)
  4105.    (:stack-trap #xAA5E paramblock async (514 :signed-integer)))
  4106.  
  4107. (deftrap _authgetspecificidentityinfo ((paramblock (:pointer :authparamblock)) (async :boolean))
  4108.    (:stack :signed-integer)
  4109.    (:stack-trap #xAA5E paramblock async (515 :signed-integer)))
  4110.  
  4111.  
  4112. (deftrap _authaddkey ((paramblock (:pointer :authparamblock)) (async :boolean))
  4113.    (:stack :signed-integer)
  4114.    (:stack-trap #xAA5E paramblock async (519 :signed-integer)))
  4115.  
  4116. (deftrap _authchangekey ((paramblock (:pointer :authparamblock)) (async :boolean))
  4117.    (:stack :signed-integer)
  4118.    (:stack-trap #xAA5E paramblock async (520 :signed-integer)))
  4119.  
  4120. (deftrap _authdeletekey ((paramblock (:pointer :authparamblock)) (async :boolean))
  4121.    (:stack :signed-integer)
  4122.    (:stack-trap #xAA5E paramblock async (521 :signed-integer)))
  4123.  
  4124. (deftrap _authpasswordtokey ((paramblock (:pointer :authparamblock)) (async :boolean))
  4125.    (:stack :signed-integer)
  4126.    (:stack-trap #xAA5E paramblock async (522 :signed-integer)))
  4127.  
  4128.  
  4129. (deftrap _authgetcredentials ((paramblock (:pointer :authparamblock)) (async :boolean))
  4130.    (:stack :signed-integer)
  4131.    (:stack-trap #xAA5E paramblock async (523 :signed-integer)))
  4132.  
  4133. (deftrap _authdecryptcredentials ((paramblock (:pointer :authparamblock)) (async :boolean))
  4134.    (:stack :signed-integer)
  4135.    (:stack-trap #xAA5E paramblock async (524 :signed-integer)))
  4136.  
  4137.  
  4138. (deftrap _authmakechallenge ((paramblock (:pointer :authparamblock)) (async :boolean))
  4139.    (:stack :signed-integer)
  4140.    (:stack-trap #xAA5E paramblock async (527 :signed-integer)))
  4141.  
  4142. (deftrap _authmakereply ((paramblock (:pointer :authparamblock)) (async :boolean))
  4143.    (:stack :signed-integer)
  4144.    (:stack-trap #xAA5E paramblock async (528 :signed-integer)))
  4145.  
  4146. (deftrap _authverifyreply ((paramblock (:pointer :authparamblock)) (async :boolean))
  4147.    (:stack :signed-integer)
  4148.    (:stack-trap #xAA5E paramblock async (529 :signed-integer)))
  4149.  
  4150.  
  4151. (deftrap _authgetutctime ((paramblock (:pointer :authparamblock)) (async :boolean))
  4152.    (:stack :signed-integer)
  4153.    (:stack-trap #xAA5E paramblock async (538 :signed-integer)))
  4154.  
  4155.  
  4156. (deftrap _authmakeproxy ((paramblock (:pointer :authparamblock)) (async :boolean))
  4157.    (:stack :signed-integer)
  4158.    (:stack-trap #xAA5E paramblock async (530 :signed-integer)))
  4159.  
  4160.  
  4161. (deftrap _authtradeproxyforcredentials ((paramblock (:pointer :authparamblock)) (async :boolean))
  4162.    (:stack :signed-integer)
  4163.    (:stack-trap #xAA5E paramblock async (531 :signed-integer)))
  4164.  
  4165. ;  Local Identity API 
  4166.  
  4167. (deftrap _authgetlocalidentity ((paramblock (:pointer :authparamblock)) (async :boolean))
  4168.    (:stack :signed-integer)
  4169.    (:stack-trap #xAA5E paramblock async (516 :signed-integer)))
  4170.  
  4171.  
  4172. (deftrap _authunlocklocalidentity ((paramblock (:pointer :authparamblock)) (async :boolean))
  4173.    (:stack :signed-integer)
  4174.    (:stack-trap #xAA5E paramblock async (532 :signed-integer)))
  4175.  
  4176.  
  4177. (deftrap _authlocklocalidentity ((paramblock (:pointer :authparamblock)) (async :boolean))
  4178.    (:stack :signed-integer)
  4179.    (:stack-trap #xAA5E paramblock async (533 :signed-integer)))
  4180.  
  4181.  
  4182. (deftrap _authaddtolocalidentityqueue ((paramblock (:pointer :authparamblock)) (async :boolean))
  4183.    (:stack :signed-integer)
  4184.    (:stack-trap #xAA5E paramblock async (517 :signed-integer)))
  4185.  
  4186.  
  4187. (deftrap _authremovefromlocalidentityqueue ((paramblock (:pointer :authparamblock)) (async :boolean))
  4188.    (:stack :signed-integer)
  4189.    (:stack-trap #xAA5E paramblock async (518 :signed-integer)))
  4190.  
  4191.  
  4192. (deftrap _authsetuplocalidentity ((paramblock (:pointer :authparamblock)) (async :boolean))
  4193.    (:stack :signed-integer)
  4194.    (:stack-trap #xAA5E paramblock async (534 :signed-integer)))
  4195.  
  4196.  
  4197. (deftrap _authchangelocalidentity ((paramblock (:pointer :authparamblock)) (async :boolean))
  4198.    (:stack :signed-integer)
  4199.    (:stack-trap #xAA5E paramblock async (535 :signed-integer)))
  4200.  
  4201.  
  4202. (deftrap _authremovelocalidentity ((paramblock (:pointer :authparamblock)) (async :boolean))
  4203.    (:stack :signed-integer)
  4204.    (:stack-trap #xAA5E paramblock async (536 :signed-integer)))
  4205.  
  4206.  
  4207. (deftrap _ocesetupadddirectoryinfo ((paramblock (:pointer :authparamblock)) (async :boolean))
  4208.    (:stack :signed-integer)
  4209.    (:stack-trap #xAA5E paramblock async (537 :signed-integer)))
  4210.  
  4211.  
  4212. (deftrap _ocesetupchangedirectoryinfo ((paramblock (:pointer :authparamblock)) (async :boolean))
  4213.    (:stack :signed-integer)
  4214.    (:stack-trap #xAA5E paramblock async (539 :signed-integer)))
  4215.  
  4216.  
  4217. (deftrap _ocesetupremovedirectoryinfo ((paramblock (:pointer :authparamblock)) (async :boolean))
  4218.    (:stack :signed-integer)
  4219.    (:stack-trap #xAA5E paramblock async (525 :signed-integer)))
  4220.  
  4221.  
  4222. (deftrap _ocesetupgetdirectoryinfo ((paramblock (:pointer :authparamblock)) (async :boolean))
  4223.    (:stack :signed-integer)
  4224.    (:stack-trap #xAA5E paramblock async (526 :signed-integer)))
  4225.  
  4226.  
  4227. (deftrap _diraddrecord ((paramblock (:pointer :dirparamblock)) (async :boolean))
  4228.    (:stack :signed-integer)
  4229.    (:stack-trap #xAA5E paramblock async (265 :signed-integer)))
  4230.  
  4231.  
  4232. (deftrap _dirdeleterecord ((paramblock (:pointer :dirparamblock)) (async :boolean))
  4233.    (:stack :signed-integer)
  4234.    (:stack-trap #xAA5E paramblock async (266 :signed-integer)))
  4235.  
  4236.  
  4237. (deftrap _direnumerateget ((paramblock (:pointer :dirparamblock)) (async :boolean))
  4238.    (:stack :signed-integer)
  4239.    (:stack-trap #xAA5E paramblock async (273 :signed-integer)))
  4240.  
  4241.  
  4242. (deftrap _direnumerateparse ((paramblock (:pointer :dirparamblock)) (async :boolean))
  4243.    (:stack :signed-integer)
  4244.    (:stack-trap #xAA5E paramblock async (257 :signed-integer)))
  4245.  
  4246.  
  4247. (deftrap _dirfindrecordget ((paramblock (:pointer :dirparamblock)) (async :boolean))
  4248.    (:stack :signed-integer)
  4249.    (:stack-trap #xAA5E paramblock async (320 :signed-integer)))
  4250.  
  4251.  
  4252. (deftrap _dirfindrecordparse ((paramblock (:pointer :dirparamblock)) (async :boolean))
  4253.    (:stack :signed-integer)
  4254.    (:stack-trap #xAA5E paramblock async (321 :signed-integer)))
  4255.  
  4256.  
  4257. (deftrap _dirlookupget ((paramblock (:pointer :dirparamblock)) (async :boolean))
  4258.    (:stack :signed-integer)
  4259.    (:stack-trap #xAA5E paramblock async (279 :signed-integer)))
  4260.  
  4261.  
  4262. (deftrap _dirlookupparse ((paramblock (:pointer :dirparamblock)) (async :boolean))
  4263.    (:stack :signed-integer)
  4264.    (:stack-trap #xAA5E paramblock async (258 :signed-integer)))
  4265.  
  4266.  
  4267. (deftrap _diraddattributevalue ((paramblock (:pointer :dirparamblock)) (async :boolean))
  4268.    (:stack :signed-integer)
  4269.    (:stack-trap #xAA5E paramblock async (267 :signed-integer)))
  4270.  
  4271.  
  4272. (deftrap _dirdeleteattributevalue ((paramblock (:pointer :dirparamblock)) (async :boolean))
  4273.    (:stack :signed-integer)
  4274.    (:stack-trap #xAA5E paramblock async (268 :signed-integer)))
  4275.  
  4276.  
  4277. (deftrap _dirdeleteattributetype ((paramblock (:pointer :dirparamblock)) (async :boolean))
  4278.    (:stack :signed-integer)
  4279.    (:stack-trap #xAA5E paramblock async (304 :signed-integer)))
  4280.  
  4281.  
  4282. (deftrap _dirchangeattributevalue ((paramblock (:pointer :dirparamblock)) (async :boolean))
  4283.    (:stack :signed-integer)
  4284.    (:stack-trap #xAA5E paramblock async (269 :signed-integer)))
  4285.  
  4286.  
  4287. (deftrap _dirverifyattributevalue ((paramblock (:pointer :dirparamblock)) (async :boolean))
  4288.    (:stack :signed-integer)
  4289.    (:stack-trap #xAA5E paramblock async (270 :signed-integer)))
  4290.  
  4291.  
  4292. (deftrap _dirfindvalue ((paramblock (:pointer :dirparamblock)) (async :boolean))
  4293.    (:stack :signed-integer)
  4294.    (:stack-trap #xAA5E paramblock async (294 :signed-integer)))
  4295.  
  4296.  
  4297. (deftrap _direnumerateattributetypesget ((paramblock (:pointer :dirparamblock)) (async :boolean))
  4298.    (:stack :signed-integer)
  4299.    (:stack-trap #xAA5E paramblock async (274 :signed-integer)))
  4300.  
  4301.  
  4302. (deftrap _direnumerateattributetypesparse ((paramblock (:pointer :dirparamblock)) (async :boolean))
  4303.    (:stack :signed-integer)
  4304.    (:stack-trap #xAA5E paramblock async (259 :signed-integer)))
  4305.  
  4306.  
  4307. (deftrap _diraddpseudonym ((paramblock (:pointer :dirparamblock)) (async :boolean))
  4308.    (:stack :signed-integer)
  4309.    (:stack-trap #xAA5E paramblock async (271 :signed-integer)))
  4310.  
  4311.  
  4312. (deftrap _dirdeletepseudonym ((paramblock (:pointer :dirparamblock)) (async :boolean))
  4313.    (:stack :signed-integer)
  4314.    (:stack-trap #xAA5E paramblock async (272 :signed-integer)))
  4315.  
  4316.  
  4317. (deftrap _diraddalias ((paramblock (:pointer :dirparamblock)) (async :boolean))
  4318.    (:stack :signed-integer)
  4319.    (:stack-trap #xAA5E paramblock async (284 :signed-integer)))
  4320.  
  4321.  
  4322. (deftrap _direnumeratepseudonymget ((paramblock (:pointer :dirparamblock)) (async :boolean))
  4323.    (:stack :signed-integer)
  4324.    (:stack-trap #xAA5E paramblock async (275 :signed-integer)))
  4325.  
  4326.  
  4327. (deftrap _direnumeratepseudonymparse ((paramblock (:pointer :dirparamblock)) (async :boolean))
  4328.    (:stack :signed-integer)
  4329.    (:stack-trap #xAA5E paramblock async (260 :signed-integer)))
  4330.  
  4331.  
  4332. (deftrap _dirgetnameandtype ((paramblock (:pointer :dirparamblock)) (async :boolean))
  4333.    (:stack :signed-integer)
  4334.    (:stack-trap #xAA5E paramblock async (276 :signed-integer)))
  4335.  
  4336.  
  4337. (deftrap _dirsetnameandtype ((paramblock (:pointer :dirparamblock)) (async :boolean))
  4338.    (:stack :signed-integer)
  4339.    (:stack-trap #xAA5E paramblock async (277 :signed-integer)))
  4340.  
  4341.  
  4342. (deftrap _dirgetrecordmetainfo ((paramblock (:pointer :dirparamblock)) (async :boolean))
  4343.    (:stack :signed-integer)
  4344.    (:stack-trap #xAA5E paramblock async (278 :signed-integer)))
  4345.  
  4346.  
  4347. (deftrap _dirgetdnodemetainfo ((paramblock (:pointer :dirparamblock)) (async :boolean))
  4348.    (:stack :signed-integer)
  4349.    (:stack-trap #xAA5E paramblock async (280 :signed-integer)))
  4350.  
  4351.  
  4352. (deftrap _dirgetdirectoryinfo ((paramblock (:pointer :dirparamblock)) (async :boolean))
  4353.    (:stack :signed-integer)
  4354.    (:stack-trap #xAA5E paramblock async (281 :signed-integer)))
  4355.  
  4356.  
  4357. (deftrap _dirgetdnodeaccesscontrolget ((paramblock (:pointer :dirparamblock)) (async :boolean))
  4358.    (:stack :signed-integer)
  4359.    (:stack-trap #xAA5E paramblock async (298 :signed-integer)))
  4360.  
  4361.  
  4362. (deftrap _dirgetdnodeaccesscontrolparse ((paramblock (:pointer :dirparamblock)) (async :boolean))
  4363.    (:stack :signed-integer)
  4364.    (:stack-trap #xAA5E paramblock async (303 :signed-integer)))
  4365.  
  4366.  
  4367. (deftrap _dirgetrecordaccesscontrolget ((paramblock (:pointer :dirparamblock)) (async :boolean))
  4368.    (:stack :signed-integer)
  4369.    (:stack-trap #xAA5E paramblock async (300 :signed-integer)))
  4370.  
  4371.  
  4372. (deftrap _dirgetrecordaccesscontrolparse ((paramblock (:pointer :dirparamblock)) (async :boolean))
  4373.    (:stack :signed-integer)
  4374.    (:stack-trap #xAA5E paramblock async (308 :signed-integer)))
  4375.  
  4376.  
  4377. (deftrap _dirgetattributeaccesscontrolget ((paramblock (:pointer :dirparamblock)) (async :boolean))
  4378.    (:stack :signed-integer)
  4379.    (:stack-trap #xAA5E paramblock async (302 :signed-integer)))
  4380.  
  4381.  
  4382. (deftrap _dirgetattributeaccesscontrolparse ((paramblock (:pointer :dirparamblock)) (async :boolean))
  4383.    (:stack :signed-integer)
  4384.    (:stack-trap #xAA5E paramblock async (312 :signed-integer)))
  4385.  
  4386.  
  4387. (deftrap _direnumeratedirectoriesget ((paramblock (:pointer :dirparamblock)) (async :boolean))
  4388.    (:stack :signed-integer)
  4389.    (:stack-trap #xAA5E paramblock async (282 :signed-integer)))
  4390.  
  4391.  
  4392. (deftrap _direnumeratedirectoriesparse ((paramblock (:pointer :dirparamblock)) (async :boolean))
  4393.    (:stack :signed-integer)
  4394.    (:stack-trap #xAA5E paramblock async (262 :signed-integer)))
  4395.  
  4396.  
  4397. (deftrap _dirmappathnametodnodenumber ((paramblock (:pointer :dirparamblock)) (async :boolean))
  4398.    (:stack :signed-integer)
  4399.    (:stack-trap #xAA5E paramblock async (290 :signed-integer)))
  4400.  
  4401.  
  4402. (deftrap _dirmapdnodenumbertopathname ((paramblock (:pointer :dirparamblock)) (async :boolean))
  4403.    (:stack :signed-integer)
  4404.    (:stack-trap #xAA5E paramblock async (291 :signed-integer)))
  4405.  
  4406.  
  4407. (deftrap _dirgetlocalnetworkspec ((paramblock (:pointer :dirparamblock)) (async :boolean))
  4408.    (:stack :signed-integer)
  4409.    (:stack-trap #xAA5E paramblock async (292 :signed-integer)))
  4410.  
  4411.  
  4412. (deftrap _dirgetdnodeinfo ((paramblock (:pointer :dirparamblock)) (async :boolean))
  4413.    (:stack :signed-integer)
  4414.    (:stack-trap #xAA5E paramblock async (293 :signed-integer)))
  4415.  
  4416. ;   Trap Dispatchers for Personal Address Book and DSAM Extensions 
  4417.  
  4418.  
  4419. (deftrap _dircreatepersonaldirectory ((paramblock (:pointer :dirparamblock)))
  4420.    (:stack :signed-integer)
  4421.    (:stack-trap #xAA5E paramblock (18808832 :signed-longint)))
  4422.  
  4423.  
  4424. (deftrap _diropenpersonaldirectory ((paramblock (:pointer :dirparamblock)))
  4425.    (:stack :signed-integer)
  4426.    (:stack-trap #xAA5E paramblock (18743296 :signed-longint)))
  4427.  
  4428.  
  4429. (deftrap _dirclosepersonaldirectory ((paramblock (:pointer :dirparamblock)))
  4430.    (:stack :signed-integer)
  4431.    (:stack-trap #xAA5E paramblock (19988480 :signed-longint)))
  4432.  
  4433.  
  4434. (deftrap _dirmakepersonaldirectoryrli ((paramblock (:pointer :dirparamblock)))
  4435.    (:stack :signed-integer)
  4436.    (:stack-trap #xAA5E paramblock (20054016 :signed-longint)))
  4437.  
  4438.  
  4439. (deftrap _diradddsam ((paramblock (:pointer :dirparamblock)))
  4440.    (:stack :signed-integer)
  4441.    (:stack-trap #xAA5E paramblock (18677760 :signed-longint)))
  4442.  
  4443.  
  4444. (deftrap _dirinstantiatedsam ((paramblock (:pointer :dirparamblock)))
  4445.    (:stack :signed-integer)
  4446.    (:stack-trap #xAA5E paramblock (19333120 :signed-longint)))
  4447.  
  4448.  
  4449. (deftrap _dirremovedsam ((paramblock (:pointer :dirparamblock)))
  4450.    (:stack :signed-integer)
  4451.    (:stack-trap #xAA5E paramblock (18874368 :signed-longint)))
  4452.  
  4453. (deftrap _diradddsamdirectory ((paramblock (:pointer :dirparamblock)) (async :boolean))
  4454.    (:stack :signed-integer)
  4455.    (:stack-trap #xAA5E paramblock async (307 :signed-integer)))
  4456.  
  4457.  
  4458. (deftrap _dirgetextendeddirectoriesinfo ((paramblock (:pointer :dirparamblock)) (async :boolean))
  4459.    (:stack :signed-integer)
  4460.    (:stack-trap #xAA5E paramblock async (310 :signed-integer)))
  4461.  
  4462.  
  4463. (deftrap _dirgetdirectoryicon ((paramblock (:pointer :dirparamblock)) (async :boolean))
  4464.    (:stack :signed-integer)
  4465.    (:stack-trap #xAA5E paramblock async (289 :signed-integer)))
  4466.  
  4467.  
  4468. (deftrap _diraddadapdirectory ((paramblock (:pointer :dirparamblock)) (async :boolean))
  4469.    (:stack :signed-integer)
  4470.    (:stack-trap #xAA5E paramblock async (311 :signed-integer)))
  4471.  
  4472.  
  4473. (deftrap _dirremovedirectory ((paramblock (:pointer :dirparamblock)) (async :boolean))
  4474.    (:stack :signed-integer)
  4475.    (:stack-trap #xAA5E paramblock async (309 :signed-integer)))
  4476.  
  4477.  
  4478. (deftrap _dirnetsearchadapdirectoriesget ((paramblock (:pointer :dirparamblock)) (async :boolean))
  4479.    (:stack :signed-integer)
  4480.    (:stack-trap #xAA5E paramblock async (264 :signed-integer)))
  4481.  
  4482.  
  4483. (deftrap _dirnetsearchadapdirectoriesparse ((paramblock (:pointer :dirparamblock)) (async :boolean))
  4484.    (:stack :signed-integer)
  4485.    (:stack-trap #xAA5E paramblock async (261 :signed-integer)))
  4486.  
  4487.  
  4488. (deftrap _dirfindadapdirectorybynetsearch ((paramblock (:pointer :dirparamblock)) (async :boolean))
  4489.    (:stack :signed-integer)
  4490.    (:stack-trap #xAA5E paramblock async (263 :signed-integer)))
  4491.  
  4492.  
  4493. (deftrap _dirgetocesetuprefnum ((paramblock (:pointer :dirparamblock)) (async :boolean))
  4494.    (:stack :signed-integer)
  4495.    (:stack-trap #xAA5E paramblock async (296 :signed-integer)))
  4496.  
  4497.  
  4498. (deftrap _dirabort ((paramblock (:pointer :dirparamblock)))
  4499.    (:stack :signed-integer)
  4500.    (:stack-trap #xAA5E paramblock (18546688 :signed-longint)))
  4501.  
  4502. ; $ENDC                         ;  UsingOCEAuthDir 
  4503.  
  4504. ; $IFC NOT UsingIncludes
  4505.  
  4506. ; $ENDC
  4507.  
  4508. (export '($KDIRFINDRECORDPARSE $KDIRFINDRECORDGET
  4509.           $KDIRGETATTRIBUTEACCESSCONTROLPARSE $KDIRADDADAPDIRECTORY
  4510.           $KDIRGETEXTENDEDDIRECTORIESINFO $KDIRREMOVEDIRECTORY
  4511.           $KDIRGETRECORDACCESSCONTROLPARSE $KDIRADDDSAMDIRECTORY
  4512.           $KDIRMAKEPERSONALDIRECTORYRLI $KDIRCLOSEPERSONALDIRECTORY
  4513.           $KDIRDELETEATTRIBUTETYPE $KDIRGETDNODEACCESSCONTROLPARSE
  4514.           $KDIRGETATTRIBUTEACCESSCONTROLGET $KDIRGETRECORDACCESSCONTROLGET
  4515.           $KDIRGETDNODEACCESSCONTROLGET $KDIRGETOCESETUPREFNUM
  4516.           $KDIRINSTANTIATEDSAM $KDIRFINDVALUE $KDIRGETDNODEINFO
  4517.           $KDIRGETLOCALNETWORKSPEC $KDIRMAPDNODENUMBERTOPATHNAME
  4518.           $KDIRMAPPATHNAMETODNODENUMBER $KDIRGETDIRECTORYICON $KDIRREMOVEDSAM
  4519.           $KDIRCREATEPERSONALDIRECTORY $KDIROPENPERSONALDIRECTORY $KDIRADDDSAM
  4520.           $KDIRADDALIAS $KDIRABORT $KDIRENUMERATEDIRECTORIESGET
  4521.           $KDIRGETDIRECTORYINFO $KDIRGETDNODEMETAINFO $KDIRLOOKUPGET
  4522.           $KDIRGETRECORDMETAINFO $KDIRSETNAMEANDTYPE $KDIRGETNAMEANDTYPE
  4523.           $KDIRENUMERATEPSEUDONYMGET $KDIRENUMERATEATTRIBUTETYPESGET
  4524.           $KDIRENUMERATEGET $KDIRDELETEPSEUDONYM $KDIRADDPSEUDONYM
  4525.           $KDIRVERIFYATTRIBUTEVALUE $KDIRCHANGEATTRIBUTEVALUE
  4526.           $KDIRDELETEATTRIBUTEVALUE $KDIRADDATTRIBUTEVALUE $KDIRDELETERECORD
  4527.           $KDIRADDRECORD $KDIRNETSEARCHADAPDIRECTORIESGET
  4528.           $KDIRFINDADAPDIRECTORYBYNETSEARCH $KDIRENUMERATEDIRECTORIESPARSE
  4529.           $KDIRNETSEARCHADAPDIRECTORIESPARSE $KDIRENUMERATEPSEUDONYMPARSE
  4530.           $KDIRENUMERATEATTRIBUTETYPESPARSE $KDIRLOOKUPPARSE
  4531.           $KDIRENUMERATEPARSE $KOCESETUPCHANGEDIRECTORYINFO $KAUTHGETUTCTIME
  4532.           $KOCESETUPADDDIRECTORYINFO $KAUTHREMOVELOCALIDENTITY
  4533.           $KAUTHCHANGELOCALIDENTITY $KAUTHSETUPLOCALIDENTITY
  4534.           $KAUTHLOCKLOCALIDENTITY $KAUTHUNLOCKLOCALIDENTITY
  4535.           $KAUTHTRADEPROXYFORCREDENTIALS $KAUTHMAKEPROXY $KAUTHVERIFYREPLY
  4536.           $KAUTHMAKEREPLY $KAUTHMAKECHALLENGE $KOCESETUPGETDIRECTORYINFO
  4537.           $KOCESETUPREMOVEDIRECTORYINFO $KAUTHDECRYPTCREDENTIALS
  4538.           $KAUTHGETCREDENTIALS $KAUTHPASSWORDTOKEY $KAUTHDELETEKEY
  4539.           $KAUTHCHANGEKEY $KAUTHADDKEY $KAUTHREMOVEFROMLOCALIDENTITYQUEUE
  4540.           $KAUTHADDTOLOCALIDENTITYQUEUE $KAUTHGETLOCALIDENTITY
  4541.           $KAUTHGETSPECIFICIDENTITYINFO $KAUTHRESOLVECREATIONID
  4542.           $KAUTHUNBINDSPECIFICIDENTITY $KAUTHBINDSPECIFICIDENTITY
  4543.           $KRECORDFILETYPE $KDIRSROOTFILETYPE $KDNODEFILETYPE
  4544.           $KDIRECTORYFILETYPE $KBUSINESSCARDFILETYPE
  4545.           $KPERSONALDIRECTORYFILETYPE $KPERSONALDIRECTORYFILECREATOR
  4546.           $KNOTIFYNAMECHANGEMASK $KNOTIFYUNLOCKMASK $KNOTIFYLOCKMASK
  4547.           $KNOTIFYNAMECHANGEBIT $KNOTIFYUNLOCKBIT $KNOTIFYLOCKBIT
  4548.           $KAUTHLOCKWILLBEDONE $KAUTHLOCKPENDING
  4549.           $KAUTHLOCALIDENTITYNAMECHANGEOP $KAUTHUNLOCKLOCALIDENTITYOP
  4550.           $KAUTHLOCKLOCALIDENTITYOP $KSUPPORTSFINDRECORDMASK
  4551.           $KSUPPORTSPROXIESMASK $KSUPPORTSAUTHENTICATIONMASK
  4552.           $KSUPPORTSPARTIALPATHNAMESMASK $KSUPPORTSPSEUDONYMSMASK
  4553.           $KSUPPORTSALIASESMASK $KSUPPORTSENUMERATEPSEUDONYMCONTINUEMASK
  4554.           $KSUPPORTSENUMERATEATTRIBUTETYPECONTINUEMASK
  4555.           $KSUPPORTSLOOKUPCONTINUEMASK $KSUPPORTSENUMERATIONCONTINUEMASK
  4556.           $KSUPPORTINDEXRATIOMASK $KSUPPORTSORTBACKWARDSMASK
  4557.           $KCANSUPPORTTYPEORDERMASK $KCANSUPPORTNAMEORDERMASK
  4558.           $KSUPPORTSORDEREDENUMERATIONMASK $KSUPPORTSCONTAINSMASK
  4559.           $KSUPPORTSENDSWITHMASK $KSUPPORTSEXACTMATCHMASK
  4560.           $KSUPPORTSBEGINSWITHMASK $KSUPPORTSMATCHALLMASK
  4561.           $KSUPPORTSATTRIBUTECREATIONIDMASK $KSUPPORTSRECORDCREATIONIDMASK
  4562.           $KSUPPORTSDNODENUMBERMASK $KSUPPORTSFINDRECORDBIT
  4563.           $KSUPPORTSPROXIESBIT $KSUPPORTSAUTHENTICATIONBIT
  4564.           $KSUPPORTSPARTIALPATHNAMESBIT $KSUPPORTSPSEUDONYMSBIT
  4565.           $KSUPPORTSALIASESBIT $KSUPPORTSENUMERATEPSEUDONYMCONTINUEBIT
  4566.           $KSUPPORTSENUMERATEATTRIBUTETYPECONTINUEBIT
  4567.           $KSUPPORTSLOOKUPCONTINUEBIT $KSUPPORTSENUMERATIONCONTINUEBIT
  4568.           $KSUPPORTINDEXRATIOBIT $KSUPPORTSORTBACKWARDSBIT
  4569.           $KCANSUPPORTTYPEORDERBIT $KCANSUPPORTNAMEORDERBIT
  4570.           $KSUPPORTSORDEREDENUMERATIONBIT $KSUPPORTSCONTAINSBIT
  4571.           $KSUPPORTSENDSWITHBIT $KSUPPORTSEXACTMATCHBIT $KSUPPORTSBEGINSWITHBIT
  4572.           $KSUPPORTSMATCHALLBIT $KSUPPORTSATTRIBUTECREATIONIDBIT
  4573.           $KSUPPORTSRECORDCREATIONIDBIT $KSUPPORTSDNODENUMBERBIT $KNOPRIVS
  4574.           $KALLPRIVS $KSEEFOLDERSMASK $KCHANGEPRIVSMASK $KRENAMEMASK
  4575.           $KCHANGEMASK $KDELETEMASK $KADDMASK $KSEEMASK $KSEEFOLDERSBIT
  4576.           $KCHANGEPRIVSBIT $KRENAMEBIT $KCHANGEBIT $KDELETEBIT $KADDBIT
  4577.           $KSEEBIT $KMEMASK $KGUESTMASK $KAUTHENTICATEDINDIRECTORYMASK
  4578.           $KAUTHENTICATEDINDNODEMASK $KFRIENDSMASK $KTHISRECORDOWNERMASK
  4579.           $KMEBIT $KGUESTBIT $KAUTHENTICATEDINDIRECTORYBIT
  4580.           $KAUTHENTICATEDINDNODEBIT $KFRIENDSBIT $KTHISRECORDOWNERBIT
  4581.           $KCURRENTOCESORTVERSION $KCONTAINING $KENDINGWITH $KBEGINSWITH
  4582.           $KEXACTMATCH $KMATCHALL $KSORTBACKWARDS $KSORTFORWARDS $KSORTBYTYPE
  4583.           $KSORTBYNAME $KENUMALLMASK $KENUMINVISIBLEMASK $KENUMDNODEMASK
  4584.           $KENUMPSEUDONYMMASK $KENUMALIASMASK $KENUMDISTINGUISHEDNAMEMASK
  4585.           $KENUMINVISIBLEBIT $KENUMDNODEBIT $KENUMPSEUDONYMBIT $KENUMALIASBIT
  4586.           $KENUMDISTINGUISHEDNAMEBIT $KREFNUMUNKNOWN $KRC4KEYSIZEINBYTES))
  4587. (provide-interface 'OCEAuthDir)
  4588.